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LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



OGOOOO 



00000 
01000 
02000 



2 
3 
^ 
5 
6 
7 
6 
9 

10 
11 
12 
13 

m 

15 
16 
17 
18 
19 
20 
21 
22 
23 



THIS FILE IS AN ALTERATION OF ORIGINAL SOURCE TO CONFORM TO 

MORE SOPHISTICATED ASSEMBLER. 
SPECIFICALLY, USING THE CONDITIONAL ASSEMBLY TO PERFORM THE 

FUNCTION OF THE EDITOR PROGRAM SUPPLIED WITH THE PACKAGE. 

FURTHER MODIFICATIONS MADE TO ALLOW RUNNING UNDER CMS 

1. CARD I/O VIA CMS AND CP SPOOL ONLY 

2. ELIMINATE THE 'B ^' k'AIT LOOPS 

3. 2 POSITION ADCONS NOW FULLWORDS. I.E. LOTS OF LH CHANGED 

TO L INSNS. 
^. STAND-ALONE LOADER STUFF REMOVED 

5, MACHINE CHECK STUFF REMOVED 

6. TERMINAL I/O VIA WRTERM AND LINEDIT 

HERE ARE THE CONDITIONAL ASSEMBLY TRANSLATIONS 



* NOTE: THE SIMULATED 1620 IS ALWAYS ASSUMED TO HAVE 

* A 2540 READER/PUNCH, 1403 PRINTER, AND A CONSOLE 



ALL OTHER I/O DEVICES ARE SPECIFIED BY SETTING BITS ON IN 
APPROPRIATE BINARY VARIABLES. 



24 




GBLA 


S.CORE 


VALUE 2,4,6 FOR 20K, 40K, 60K 1620 


25 




GBLA 


S^MODEL 


VALUE 1 OR 2 FOR MODEL OF 1620 


26 




GBLB 


&R1621P 


SIMULATING A PAPER TAPE PUNCH 


27 




GBLB 


&R1621R 


SIMULATING A PAPER TAPE READER 


28 




GBLB 


INDEX 


INDEXING INSTRUCTIONS ALLOWED 


29 




GBLB 


&IHDAD 


INDIRECT ADDRESSING ALLOWED 


30 




GBLB 


^ TRANS 




31 




GBLB 


SiDIVIDE 


FIXED POINT DIVISION ALLOWED 


32 




GBLB 


S.FLOAT 


FLOATING POINT INSNS. ALLOWED 


33 




GBLB 


&DISK 


ON IF DISK(5) ARE BEING SIMULATED 


34 




ACTR 


100 




35 










36 










37 


^ SET VALUES FOR TRIAL 


ASSEMBLY 


38 


S^CORE 


SETA 


2 20K MACHINE 


39 


&HODEL 


SETA 


2 DELUXE MODEL 


40 


&INDEX 


SETB 


1 




41 


&TRANS 


SETB 


1 




42 


S^DIVIDE 


SETB 


1 




43 


&FLOAT 


SETB 


1 




44 ^ 








45 










46 










47 


^ STATUS 


CHANGE VERSION 


1, LEVEL 2 


48 


CONTPR 


START 


0 




49 




USING 


*,0 




50 




USING ^+4096,3 




51 




USING ^+8192, 4 





VILZ 
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LOC 08JECT CODE ADORl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22,10 05/07/61 



53 ^^^^^^^^^X^^^9f9('^%3€9^9^^9f^^^^^ef^^^^^^^9($^«9(9e9H€9(^X9^%9^9(9(X«^9e9(«^X9e9e« 

55 * 5IH20 * 

56 * IBM SYSTEM/360 SIMULATOR FOR THE IBM 1620 * 

57 * * 
58* INTRODUCTION * 

59 * ^ 

60 ^ THE SIMULATOR CONTAINS THE FOLLOWING MAJOR SECTIONS = * 

61 ^ * 

62 ^ - CONSOLE SIMULATION * 

63 * - BASIC INTERPRETIVE ROUTINE (BIR) * 

64 * - CPU SIMULATION * 

65 ^ - I/O SIMULATION 

66 * - DISK SIMULATION * 

67 * ^ 

68 ^ EACH SECTION OF THE SIMULATOR, WITH THE EXCEPTION OF THE BASIC IN- * 

69 ^ TERPRETIVE ROUTINE, CONTAINS ROUTINES WHICH SIMULATE THE CORRE- * 

70 * SPONDING FUNCTIONS OF A 1620. * 

71 * * 

72 ^ THE FOLLOWING COMMON INFORMATION IS USED BY MORE THAN ONE SECTION * 

73 ^ * 

74 * - SIMULATED 1620 CORE STORAGE * 

75 * * 

76 ^ - SIMULATED INSTRUCTION COUNTER * 

77 * * 

78 * - SIMULATED REGISTERS . * 

79 * * 

80 ^ - SYSTEM/360 REGISTER ALLOCATION * 

81 * * 
32 ^ - SIMULATED 1620 INDICATORS * 
63 ^ * 
84 * * 
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LOC OBJECT CODE ADDRi ADDR2 STMT SOURCE STATEMENT ASM H V 05 22,10 05/07/81 



88 

89 * * 

90 * GENERAL REGISTER ASSIGNMENT * 

91 * * 

92 ^^i(>^^^^9^^^^*>f^^^^^^^^^9(9(^^^%^9^9(^^^9(^^^^)^^^^^^^^^^^^^X9f9f9f^^9e^^«^^^ 



00001 


94 


Rl 


EQU 


1 


REGISTER 1 










o 


REGISTER 2 


00003 


96 


SIMBl 


EQU 


3 


BASE REGISTER 1 (4096 TO 6192) 


UUUU4 


9/ 


SIMB2 


EQU 


4 


BASE REGISTER 2 (8192 TO 12288) 


UUUUd 


70 


CNTR 


EQU 


5 


INSTRUCTION COUNTER 


UUUUo 


QQ 
77 


MAPORG 


EQU 




GL-REGISTER CONTAINING THE ABSO- 




xuu 








LUTE ADDRESS OF HAP ORIGIN 


00007 


101 


SHE 


EQU 


7 


GL. REGISTER CONTAINING THE MAXI- 




102 








MUM ABSOLUTE ADDRESS OF SIMULAT- 




1 

iUo 








ED 1620 CORE STORAGE 


UUuUo 


lUH 


RP 


EQU 


6 


REGISTER P 


UUUU7 




RQ 


EQU 


9 


REGISTER Q 


UUUUrl 


1 (\C 
iUo 


WRl 


EQU 


10 


WORKING REGISTER 1 


UUUUd 


iU/ 


WR2 


EQU 


11 


WORKING REGISTER 2 


UUUuL 


1 nn 
lUo 


WR3 


EQU 


12 


WORKING REGISTER 3 


nnnnn 

uUUuu 


1 HQ 


WR4 


EQU 


13 


WORKING REGISTER 4 


OOOCE 


110 


WR5 


EQU 


14 


WORKING REGISTER 5 


OOOOF 


111 


WR6 


EQU 


15 


WORKING REGISTER 6 




113 






114 












115 






CONDITION 


CODE MNEMONICS FOR BRANCH INSTRUCTIONS * 




116 












117 




OOOOF 


119 


BR 


EQU 


15 


* UNCONDITIONAL BRANCH (REGISTER 


00000 


120 


NOP 


EQU 


0 


^ NO OPERATION 


00005 


121 


BOM 


EQU 


5 


^ BRANCH ON OVERFLOW OR MINUS 


00003 


122 


BZ 


EQU 


3 


^ BRANCH ON ZERO 


OOOOC 


123 


BZM 


EQU 


12 


^ BRANCH ON ZERO OR MINUS 


00080 


124 


CONVTB 


EQU 


126 


ABSOLUTE ADDRESS OF CODE CONVER- 




125 








SION TABLE FOR I/O OPERATIONS 
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LOC OBJECT CODE ADDRl A0DR2 STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

128 * * 

129^ CONSOLE SIMULATION * 

130 * * 

131* THIS SECTION OF THE SIMULATOR CONTAINS ALL ROUTINES, SUBROUTINES * 

132 * AND TABLES NEEDED FOR SIMULATION OF THE 1620 CONSOLE OPERATIONS. ^ 

133 * ^ 

134 * CONSOLE SIMULATION CONSISTS OF = * 

135 * * 
136* - SIMULATION OF CONSOLE KEYS, SWITCHES AND INDICATORS * 

137 * * 

138 * - BASIC SUBROUTINES * 

139 * * 

140 * - MESSAGES FROM THE SIMULATOR * 

141 * * 

142 * - INSERT AND AUTOMATIC CARD LOAD OPERATIONS * 

143 * ALTHOUGH THESE ROUTINES AND THEIR CORRESPONDING SUBROUTINES ARE * 

144 * RELATED TO CPU OPERATIONS, THEY ARE INCLUDED IN THE CONSOLE SIMUL- * 

145 * ATION SBiZE THEY MAY BE USED IN CONSOLE KEY OPERATIONS. * 

146 * * 

147 ^f^(^9«^^t*^^^^*^^^9^i«9e^^^^*^^*^)t^9tie9t^e*i^^x^i€?^i^9t^^(^^9e^9^^ie^x***9e9t9t^5(9f^^ 
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LOC OBJECT CODE 



ADDRi ADDR2 STHT SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



OOOODD 80 



1^9 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 



SECTION 1 

CONSOLE KEYS, SWITCHES AND INDICATORS 



AN 8-BYTE FIELD, CONTAINING THE BYTES MENTIONED IN THE FOLLOWING 
TABLE, IS USED TO SIMULATE THE 1620 CONSOLE KEYS, SWITCHES AND 
INDICATORS. EACH BIT OF A GIVEN BYTE CORRESPONDS TO A KEY, SWITCH 

OR INDICATOR. 



161 


KEYBIT DC 


X*60» 






(BYTE FOR KEY INTERLOCK) 


162 




'KEYBIT' BIT 


0 




'STOP' KEY WHEN ONE 


163 










'START' KEY WHEN ZERO 


164 




BIT 


1 




'SAVE' KEY WHEN ONE 


165 




BIT 


2 




'CHECK RESET' KEY WHEN ONE 


166 




BIT 


3 




'RESET' KEY WHEN ONE 


167 




BIT 






'INSERT 'KEY WHEN ONE 


168 




BIT 


5 




'MODIFY 'KEY WHEN ONE 


169 




BIT 


6 




'AUTOMATIC LOAD' KEY WHEN ONE 


170 




BIT 


7 




MAP DUMP FEATURE (FOR MAINTENANCE 


171 










PURPOSES ONLY) 



000001 00 



173 PROSWI 

174 * 

175 * 

176 * 

177 ^ 

178 ^ 

179 * 

180 ^ 

181 ^ 



DC X'O' SWITCHES 

'PROSWI' BIT 0 = PROGRAM SWITCH 1 

BIT 1 = PROGRAM SWITCH 2 

BIT 2 = PROGRAM SWITCH 3 

BIT 3 = PROGRAM SWITCH 4 

BIT 4 = DISK CHECK SWITCH 

BIT 5 = WRITE ADDRESS SWITCH FOR 1311 DISK 

BIT 6 = I/O CHECK SWITCH 

BIT 7 - O'FLOW SWITCH 



000002 00 



000003 00 



000004 00 



183 


NYCHEK 


DC 


X'O' 


INDICATORS 


184 






'NYCHEK' 


BIT 0 = READ CHECK INDICATOR 06 


165 








BIT 1 = WRITE CHECK INDICATOR 07 


186 








BIT 2 = NOT USED EXCEPT FOR PAPER TAPE 


187 








BIT 3 = NOT USED 


188 








BIT 4 = PRINTER CHECK INDICATOR 25 


189 








BIT 5 = ADDRESS CHECK INDICATOR 36 


190 








BIT 6 = WLR,RBC INDICATOR 37 


191 








BIT 7 = CYL. OVERFLOW INDICATOR 38 


193 


HPE2 


DC 


X'O' 


H/P AND E/Z INDICATORS 


194 






'HPEZ' 


BITS 0,1,2 NOT USED 


195 








BIT 3 = HIGH/POSITIVE INDICATOR 11 


196 








BITS 4,5,6 NOT USED 


197 








BIT 7 = EQUAL / ZERO INDICATOR 12 


199 


OFLOW 


DC 


X'O' 


ARITH. AND EXP, CHECK INDICATORS 


200 






'OFLOW' 


BITS 0,1,2 NOT USED 


201 








BIT 3 = ARITHMETIC CHECK INDICATOR 14 


202 


5f 






BITS 4,5,6 NOT USED 



A2SB 



1620 SIMULATOR 



PAGE 7 



LOC 08JECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/61 









^lU J 








DTT "7 - CTVDAMirSJT rUCTl/ TKinTrATHD 1C 

oil / - tArUriLN 1 LntLK iNUlLftlUK it? 


000005 


00 




205 


LA5TCD 


DC 


X»0' 


LAST CARD INDICATOR 








ZUo 








DTTC ft Tr» £, WAT flCCTl 








(tU/ 








DTT 7 - 1 ACT rADH TWHTrATAD HQ 

oil / - Lnbi LhKU JLNUILhIUK UV 


UUUUUo 


Uu 






TVRAKin 
XADnriU 


nr 
UL 


VIA* 

A U 


DAKin TWHTTATADC 








ZiU 






f TVPAKin f 


PTTC ft TA 6 WAT NCCH 

oilb U lU 4 NUI UbtU 
















BIT 5 = NO BAND INDICATOR 30 
















BIT 6 = BAND 1 INDICATOR 31 








91 Q 








BIT 7 = BAND 2 INDICATOR 32 


UuUUU/ 


uu 




91 C 




Uu 


X»0' 


1443 PRINTER TAPE INDICATORS 








91 d 






''TAPE43* 


BITS 0 TO 4 NOT USED 








217 








BIT 5 = CHANNEL 9 INDICATOR 33 








91G 








BIT 6 = CHANNEL 12 INDICATOR 34 








219 








BIT 7 = PRINTER BUSY INDICATOR 35 








99^^ 




AIF 


(NOT &DISK).N0DSK1 








991 
£.£1 




AHOP 












9'*9 


CATT 


DS 


OH 


ENABLE INTERRUPTIONS 




t/ r u y uu4 


UUUUt 






B 


MESSWI+4 AND STOP SIMULATION 


oooaoc 


45F0 00F4 


OOOFA 


224 


BRCC 


BAL 


15,MEST0P 




000010 


oooooic:2 




225 




DC 


A (READY) 


SEND MESSAGE SIM20 READY 


000014 


00003002 




226 


CORES! 


DC A(CORESl) 


ADDRESS OF 1620 CORE STORAGE 








228 




AIF 


(ENCORE GT 


2).C0RE1 1620 = 20K 


000018 


00004E1F 




229 


CAPACT 


DC 


pf 199991 


CAPACITY OF 1620 








230 




AGO 


.COREX 










231 


.COREX 


ANOP 
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235 ^ * 

236 ^ SECTION 2 * 
23? * BASIC CONSOLE SIMULATION SUBROUTINES * 
233 * * 
239 
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LOC OBJECT CODE ADDRi ADDR2 STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

'TYPIO* * 

THIS SUBROUTINE SUBMITS ALL I/O REQUESTS RELATED TO THE 1052 PRIN- ^ 
TER-KEYBOARD TO THE CONTROL PROGRAM • IN ADDITION, IT SUBMITS I/O * 
REQUESTS RELATED TO THE PAPER TAPE READER/PUNCH, WHEN THIS OPTION ^ 
IS PRESENT. * 

OPERATION ^ 

THE TRAILER RECORD IMMEDIATELY FOLLOWING THE INSTRUCTION WHICH * 

CALLS THE 'TYPIO' SUBROUTINE CONTAINS THE ADDRESS OF THE DEVICE, * 

(1G52 OR PAPER TAPE READER/PUNCH), THE NUMBER OF BYTES TO BE PRO- * 

CESSED, AND THE BUFFER ADDRESS. IT IS TRANSMITTED TO 'TYPIO' * 

SUBROUTINE WHICH USES IT TO BUILD UP THE I/O REQUEST. ^ 

PROCESSING OF THE INSTRUCTION IS STOPPED AS SOON AS THE I/O RE- * 
QUEST AND CONTINUE IS ACCEPTED AND RESTARTS AT '^DEVICE END'. * 

THERE ARE TWO EXITS = * 

- A NORMAL EXIT (DEVICE END + CHANNEL END) WHICH RETURNS TO THE * 
CALLING SEQUENCE 6 BYTES) * 

- AN ERROR EXIT (DEVICE END ONLY) WHICH RETURNS TO THE CALLING SE- * 
QUENCE (+ 10 BYTES) ^ 



941 




£.nc. 




94"^ 




944 




94"^ 




94A 




947 




94fl 




949 


9€ 


9^n 


9^ 


9m 


9( 


£.D L. 








9^4 
















258 




259 




260 




261 




262 




263 




264 




265 




266 





OOOOIC 

COOOiC 5010 C05C 0005C 

00C020 0000 0000 00000 

IEV044 ERROR UNDEFINED 

IEV029 ^^3^ ERROR INCORRECT 

000024 0000 

IEV044 ERROR UNDEFINED 

IEV029 ERROR INCORRECT 

IEV044 ERROR ^e*^ UNDEFINED 

IEV029 ERROR ^^5*$^ INCORRECT 

000026 0000 0000 COOOO 

IEV044 ERROR UNDEFINED 

IEV029 ^^^^ ERROR INCORRECT 



266 TYPIOXX DS 

269 ST 

270 ICM 
SYMBOL 

REGISTER OR MASK SPECIFICATION 



OH 

R1,TYPI0SV 
R12,B'1111S0(R1) 



00002A 0700 
0G002C 

00002C 0000 0000 
IEV044 ERROR 
IEV029 ERROR 

000030 9201 0044 

000034 0000 0000 
IEV044 ERROR 
IEV029 ERROR 

000038 4510 004C 

00003C E3E8D7D3C9D54040 

000044 01000000 

IEV044 ERROR 



00000 
UNDEFINED 
INCORRECT 
00044 

00000 
UNDEFINED 
INCORRECT 
0004C 



UNDEFINED 



271 

SYMBOL 
REGISTER OR MASK 
SYMBOL 

REGISTER OR MASK 
272 IC 
SYMBOL 
REGISTER OR 
273 
274+ 
275 + 
276+ 
SYMBOL 

REGISTER OR MASK 
277+ MVI 
278+ STH 
SYMBOL 

REGISTER OR MASK 
279+ BAL 
280+DMSOOOlA 
281+DMSOOOlB 
SYMBOL 



SR R11,R11 



SPECIFICATION 

SPECIFICATION 
Rll^O(Rl) 



MASK SPECIFICATION 
WRTERM (R12),(R11) 

CNOP 0,4 



DS 
ST 



OH 

R12,DMS0001B 

SPECIFICATION 
DMS0001B,X'01'' 
Rll,DMS0001C+2 

SPECIFICATION 

1,DM50001E 
DC CLS'TYPLIN' 
DC X'01',AL3(R12) 



CLEAR LENGTH REG 



GET THE TYPEOUT LENGTH 



STORE MESSAGE-ADDRESS 



RESTORE FLAG 

STORE LENGTH IN PLIST 



POINT Rl TO PLIST 



01-WRTER 
01-WRTER 
01-WRTER 



01-WRTER 
01-WRTER 



01-WRTER 
01-WRTER 
01-WRTER 



A2S8 



1620 SIMULATOR 



PAGE 10 



LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT 



ASM H V 05 22*10 05/07/81 



0000^8 C20000G1 
OOOO^C 
OOOO^jC OACA 
DOODLE 00000052 
000052 5810 005C 
000056 47Fi 0004 
00005A 0000 
00005C 00000000 



0005C 
00004 



282+DMSOOOlC DC C ' B SX ' 00 ' ,AL2 ( 01 ) 

283+DMSOOOlE DS OH 

284+ SVC 202 CALL CMS TO TYPE 

285+ DC AL4(*+4) 

286 L R1,TYPI0SV 

267 B 4(R1) 



01-WRTER 
01-WRTER 
01-WRTER 
01-MRTER 



286 TYPIOSV DC 



F'0» 
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LOC OBJECT CODE AODRl ADDR2 STHT SOURCE STATEHENT 



ASM H V 05 22.10 05/07/81 



291 

292 ^ 

293 ^ 
29^ ^ 

295 * 

296 * 

297 ^ 

298 ^^^^^^^^^^^^^^^^^ii^^^*^^^^^^^^^*^^^^**^^^^**^*'^*^^^^ 



'ALARM' 

THIS SUBROUTINE ISSUES ALL ALARM COMMANDS REQUESTED DURING SIMU- 
LATION EACH TIME THE 1052 IS IN THE 'INTERVENTION REQUIRED 'STATE. 



000060 


5010 0054 


00084 


300 ALARM 


ST 


R1,ALAREG 
R1,TYPI0 


SAVE REGISTER Rl 








301 * 


BAL 


SEND AN ALARM REQUEST 


00006^ 


00090001 




302 


DC 


X'00090B01' 




C00C68 


ooooooco 




303 


DC 


A(0) 




00006C 


4700 0000 


00000 


304 


BC 


NOP,0 




000070 


4110 0001 


00001 


305 


LA 


Rl,l 




00007^ 


6B10 0013 


00013 


306 


SLA 


Rl,19 




000078 


4610 OD?S 


00078 


307 


BCT 


Rl * 


WAIT FOR 5 SECONDS 


00007C 


5610 0084 


00084 


308 


L 


riUlareg 


RESTORE REGISTER Rl 


oocoao 


07F1 




309 


BR 


Rl 


RETURN TO CALLER 



000084 311 ALAREG DS IF USED TO SAVE REGISTER Rl 
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LOG OBJECT CODE ADORl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

314 * ^ 

315 * SECTION 3 * 
316* MESSAGES FROM THE SIMULATOR * 

317 * PROCESSING OF MESSAGES * 

318 * * 

319 $t9e^t^(^^$f*^t9t3t^t*96^9ej«ie9«*Jt*9e^6*9t^^f*9t^t5e^«*9t*tJeie96^^t%^9«9^9t9e^^^9t^9f9t9f9e9f9(^9t^ 











o£.5 










it 


3Zb 


¥: 






3<io 








iiu 








332 




333 




334 




335 




336 




337 




338 




339 




340 




341 




342 




343 




344 




345 




346 


9t 


347 




346 




349 





'MES5AG'' * 



THIS SUBROUTINE ISSUES ALL OUTPUT MESSAGES REQUIRED BY THE SIMU- 
LATOR. THESE MESSAGES ARE WRITTEN ON THE 1052. 'MESSAG' USES THE 
"TYPIO' AND 'ALARM' SUBROUTINES. ^ 



THIS SEQUENCE HAS THREE ENTRIES = 'MESSAGS 'MESTOP' AND 'MESTIR'. 

'MESSAG' = THIS SEQUENCE WRITES A GIVEN MESSAGE ON THE 1052 AND 
THEN RETURNS TO THE CALLING SEQUENCE. 

'MESTOP' = THIS SEQUENCE WRITES THE MESSAGE AND THEN SETS THE 
'STOP' BIT ON SO THAT SIMULATION STOPS UPON RETURN TO 
*BIR' 

'MESTIR' = THIS SEQUENCE IS ONLY USED NHEN OPERATOR INTERVEN- 
TION IS REQUIRED ON AN I/O DEVICE. THE MESSAGE IS WRIT- 
TEN, BUT THE INSTRUCTION COUNTER 'CNTR' IS NOT INCRE- 
MENTED SO THAT SIMULATION RESUMES AT THE SAME POINT AS 
SOON AS THE DEVICE IS READY. 

THE SEQUENCE WHICH IS COMMON TO THESE THREE ENTRY POINTS SENDS AN 
OUTPUT REQUEST TO THE TYPEWRITER THROUGH THE 'TYPIO' SUBROUTINE. 
RECOVERY PROCEDURES ARE PROVIDED FOR EXCEPTIONAL CONDITIONS IN THE 
TYPEWRITER OPERATION (SEE ALSO 'EXCRET' AND 'ALARM' SUBROUTINES). 



0C00G8 


9209 0030 


OOOBO 




351 
352 


MESSAG 


HVI 


MESSIOH,K'09' 


SET COMMAND = 'WRITE WITH AUTO- 
MATIC CARRIAGE RETURN' 


oocooc 


96F0 OODl 


OOODl 




353 


MESSA2 


01 


MESSWI+1,X'F0' 


SET SWITCH 'ME5SWI' TO BRANCH 


000090 


5010 0108 




00108 


354 




ST 


R1,MESSAV 


SAVE REGISTER Rl 


000094 


940F OOCl 


OOOCl 




355 




NI 


ALAR5W+1,X'0F' 


SET ALARM SWITCH OFF 


000096 


481F 0000 




00000 


356 




LH 


Rl,0(15) 


LOAD ADDRESS OF MESSAGE INTO Rl 


00009C 


D200 OOBl 1000 


OOOBl 


00000 


357 




MVC 


MESSIO+7(1),0(R1) 


STORE COUNT IN MESSAGE REQUEST 


0GD0A2 


4111 0001 




00001 


358 




LA 


R1,1(R1) 


STORE ADDRESS OF MESSAGE IN 


0000A6 


4010 00B2 




0G0B2 


359 




STH 


Rl,MESSI0+6 


IN MESSAGE REQUEST 


OOOOAA 








360 


MESSIO 


DS 


OH 












361 




BAL 


Rl, TYPIO 


ENTER MESSAGE REQUEST 


OOOOAA 


00090900 






362 




DC 


X' 00090900' 




OOOOAE 


0000 
















000080 


00000000 






363 




DC 


A(0) 


* A 


0000B4 


47F0 OOCC 




OOOCC 


364 




B 


MES50K 


MESSAGE OK, EXIT 



A2SB 1620 SIMULATOR 



1 nr 


OBJECT CODE 




Anns?? 




STATEHENT 




4700 


0000 




uuuuu 




BC 


NOP,0 




47F0 


0100 




UUi.UU 




B 


ALAHES 




4700 


ooec 




finnpr 

UUUuU 


•3^7 A! A pen 


BC 


NOP, ^-4 




9^.F0 


ooci 






v500 


01 


ALARS14+1,XT0» 


0000C3 


47F0 


OOAA 




OOOAA 




B 


HE5SI0 


OOOOCC 


5310 


0108 




00106 




L 


R1,MESSAV 


OOOODO 


47FF 


0004 




00004 




B 


4(15) 


0000D4 


9680 


0000 


00000 






01 


KEYBITjK'SO' 


0000B8 


47F0 


07F6 




007F6 


1? 


B 


EN TRY 1 


OOOODC 


50F0 


01Q3 




00106 


Jf ^ 1 IC«3 i Xi\ 


ST 


15 ,HESSAV 


OOOOEO 


0000 


0000 




00000 


^7^ 

Of J 


L 


15,SAVUCB 


lEVm ERROR UNDEFINED 








0000E4 


D203 


0120 FOOO 


0012D 


00000 


Of D 


MVC 


INTREQ^12(4),0(15) 


OOOCEA 


41F0 


COOC 




ooooi 


"^77 


LA 


15,12 


OOOOEE 


185 F 










SR 


CNTR,15 


OOOOFO 


53F0 


0103 




00108 


Of y 


L 


15 ,MESSAV 


OOOOF^ 


94 OF 


OCDl 


OOODl 




380 MESTOP 


NI 


HESSNI+1,X'0F' 


0000F8 


9209 


Gdeo 


OODBO 




381 


MVI 


MESSI0^6,X'09' 












382 ^ 
















383 


AIF 


(NOT &DISK)-N0DSK2 












364 .N0DSK2 


ANOP 




OOOCFC 


47F0 


0090 




00090 


365 


B 


HESSAG+8 


OGOIGO 


4510 


0060 




00060 


386 ALAMES 


BAL 


Rl, ALARM 




47F0 


0CI98 




00098 


367 


B 


MESSAG+16 



000108 



369 MESSAV DS IF 
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ASM H V 05 22.10 05/07/61 

UE SHOULD NOT OCCUR, ALARM 
INT.REQ.,GO TO ALARM 
SENSE EXIT +ALARM SWITCH 
TRY AGAIN, THEN ALARM 
(SEE E R P) 
RESTORE REGISTER Rl 
OK, RETURN TO CALLER 

SET 'STOP* BIT FOR SEQUENCE 

¥: 

SAVE REGISTER R15 

GET ADDRESS OF DEVICE NAME 

MOVE DEVICE NAME TO MESSAGE 
R15=12 

CNTR=CNTR-12 
RELOAD REGISTER R15 
SPECIAL ENTRY WHEN MESSAGE STOPS 
SET COMMAND = 'WRITE WITH AUTO- 
MATIC CARRIAGE RETURN' 
DISKS ARE PRESENT 

SEND AN ALARM REQUEST 
AND RETRY 



A2SB 1620 SIHULATOR PAGE W 



LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 



392 ^ ^ 

393 ^ TABLE OF MESSAGES FROM THE SIMULATOR * 

394 ^ ^ 

395 * THE FOLLOWING MESSAGES CONSIST OF = ^ 

396 ^ ^ 

397 ^ 1. MESSAGES ISSUED BY THE SIMULATOR PROPER WHEN IT ENCOUNTERS * 
393 * CONDITIONS WHICH PREVENT CONTINUATION OF THE OPERATION * 

399 ^ * 

400 ^ 2, NORMAL MESSAGES WHICH SIMULATE THE 1620 LIGHTS OR INDICATORS * 

401 * WHEN THEIR DISPLAY IS REQUIRED ON THE 1052 PRINTER-KEYBOARD ^ 

402 ^ * 



UuUiUL 


1 6 

IH 


yvnir crDDTVD 


nr 
UL 


V 
A 


f 1 6 * 




UUUlUU 


L iv £.r z^f IL IHX) 


HUD 


nr 


L 




PATACTDAdUTr HAMAriT nu ncwTrc" 
LHlflblKUrnlL UHnHut UN UtvlLb 


HAfll 1 "3 
UUUiiO 






nr 

UL 


L 


UHnHbt UN A AAA 


rATACTDADUTr nAMAfic AW ncuTrr 
LHinaiKUrniL UHnHbtl UN UbVlLll 


UUUiZi 


Ur 




nr 

U'L 


Y 

A 


Ur 






L 7 U I> !l>3 4oU 7L31 U04 U 




nr 
UL 


L 


iPS 1 . HCM vn AAAA 


IN i CKVLN 1 lUN Ktl^UlKtU UN UtVlLt, 








nr 

UL 


y 

A 


' nr f 

UL 






rcin^rc^nn F^.F9cn 




nr 

UL 


r 

L 


ImV JL0£.U ULV 


XNVHLIU J.D.&U UC.VJLLI1 




UD 


619 pnPKifiF 


nr 

UL 


Y 

A 


UD 




u u u X »5 r 




61 


nr 


r 

L 


i\Ui\ nU ruElU 


PF&nFP wn FFFn 

fsuHUuls riU rCXLU 






616 1 A^fAP 


nr 


y 

A 










61^ 


nr 


r 


L.rt%) 1 wrrlNU 


I A^T rAPn 






61 A PHI AJ^ 


nr 


A 


U7 








617 


nr 


r 


r/ u in 1 




U U w X .7 C 


nr 


61fi fHf^nT^ 


nr 

Uw 


V 
A 


'nr » 




uuui, j»fr 




419 


nr 

uu 


r 
w 


'ni^ji^ rHFrk n» 

uxDix i#ncuc\ u 




00016B 


08 


420 UNTCHK 


DC 


X 


'08' 




0Q016C 


C1F2F5F3C140 


421 


DC 


C 


'A253A » 




000172 


E4C3 


422 


DC 


c 


'UC 




000174 


16 


423 


DC 


X 


'16' 




000175 


C1F2FSF2C140 


424 


DC 


c 


'A252A ' 




00017B 


F2F3FlFi40C5D8E4 


425 


DC 


c 


'2311 EQUIP CHECK' 


EQUIPMENT CHECK 


000180 


07 


426 EXP 


DC 


X 


'07' 




OOOISC 


C5E7D74DC3C8D2 


427 


DC 


c 


'EXP CHK' 


EXPONENT OVERFLOW 


000193 


09 


428 AR 


DC 


X 


'09' 




000194 


C1D9C9£3C640G3C8 


429 


DC 


c 


'ARITH CHK' 


ARITHMETIC CHECK OVERFLOW 


0GC19D 


07 


430 NOBRAD 


DC 


X 


'07' 




00019E 


D4C1D940C3C6D2 


431 


DC 


c 


'MAR CHK' 


MAR CHECK 


000iA5 


08 


432 HLT 


DC 


X 


'OB' 




0001A6 


15 


433 


DC 


X 


15' 




0001A7 


C6C1D3E36BF0F0F0 


434 


DC 


c 


'HALT, 00000' 


HALT 


OOOIBI 


0? 


435 INVXOP 


DC 


x^ 


'07' 




0001B2 


C9D5E540E7D6D7 


436 


DC 


c 


'INV XOP' 


INVALID INDEX OPERATION 


Q001B9 


06 


437 WRICHK 


DC 


X 


06' 




OOOIBA 


E6D940C3C802 


438 


DC 


c 


'WR CHK' 


WRITE CHECK 


OOOICO 


06 


439 PRICHK 


DC 


X 


'06' 




OOOICI 


D7D940C3C8D2 


440 


DC 


V 


'PR CHK' 


PRINTER CHECK 


0001C7 


13 


441 CHK360 


DC 


X' 


'13' 


V1L2 


0001C5 


C1F2F5F4E640 


442 


DC 


c 


A254W • 


V1L2 


OOOICE 


D7D9D6C7D9C1D440 


443 


DC 


c 


'PROGRAM ERROR' 


V1L2 






0019D 444 INVCOD 


EQU 


NOBRAD 





A2SB 



1620 SIHULATOR 



LOG OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT 





00190 


445 INVP 


EQU 


NOBRAD 




0019D 


446 INVQ 


EQU 


NOBRAD 




0019D 


447 CHKSTP 


EQU 


NOBRAD 


OOOIDB 


06 


448 REDCHK 


DC 


X'06' 


OOOIDC 


D9C^^0C3C8D2 


449 


DC 


CRD CHK' 



0001E2 11 

0001E3 C1F2F5F0C140 
0001E9 E2C9D4F2F04CD9C5 



451 READY DC FL1U7* 

452 DC C'A250A ' 

453 DC C'SIH20 READY" 



PAGE 15 



ASM H V 05 22,10 05/07/81 



READ CHECK 



A2SB 1620 SIHULATOR 



PAGE 16 



LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

457 * SECTION 4 * 

458 ^ INSERT, AUTOMATIC CARD LOAD AND READ OPERATIONS * 

459 * ^ 
460 



463 ****^^*^^***»^Bf*^iH^^*9t*^t**9€^*^(9€3t$eit^f^itJt^e9($^5f9f^^9f9«**9f9f«9t5fc9e^9f*X^ 

464 ^ 

465 ^ INSERT KEY OPERATIONS * 

466 * AND READ NUMERICALLY OPERATIONS ON TYPEWRITER * 

467 * ^ 
466 ^ THIS IS AN INPUT OPERATION WHICH IS PERMANENTLY IN CORE STORAGE, * 

469 * SINCE IT MAY BE USED BY AN » INSERT* OPERATION. * 

470 * ^ 

471 » OPERATION * 

472 * ADDRESSES ARE PROVIDED FOR THE 'MASK' SUBROUTINE TO PREPARE THE ^ 

473 « CODE CONVERSION TABLE. THE FIELD EXPANSION SWITCH IN THE 'VALIN' * 

474 ^ SUBROUTINE IS SET OFF TO ALLOW DIRECT NUMERIC INPUT INSTEAD OF * 

475 ^ ALPHAMERIC EXPANSION. THE COMMAND MASK CHARACTER CAN BE RECOG- ^ 

476 ^ NIZED BY 'MASK'. * 

477 ^ * 

478 * THE 'TYPIO' SUBROUTINE SUBMITS A REQUEST TO THE CONTROL PROGRAM * 

479 ^ FOR A READ OPERATION WITH A COUNT OF 100 BYTES. 'TYPIO' RETURNS ^ 

480 * CONTROL TO 'RNTY' IN CASE OF = ^ 

481 ^ * 

482 * - AN ERROR CONDITION WHICH BRANCHES TO THE 'EXCRET' SUBROUTINE. * 

483 ^ 'EXCRET' DISTINGUISHES BETWEEN 'UNIT EXCEPTION' ('CANCEL' CAUS- * 

484 ^ ING THE ENTIRE SEQUENCE TO BE RESUMED), 'INTERVENTION REQUIRED' ^ 

485 * (CAUSING AN 'ALARM' REQUEST TO BE SENT TO THE 1052), OR ANY SEN- * 

486 * SE INDICATION WHICH TESTS IF READ CHECK INDICATOR 06 IS INVOLV- * 

487 ^ ED. * 
483 ^ - A NORMAL CONDITION. * 

489 ^ * 

490 * THE SEQUENCE WHICH HANDLES THE NORMAL CONDITION COMPUTES THE RE- * 

491 * SIDUAL COUNT TO DETtRMlNE IF THE READ OPERATION HAS ENTERED 100 * 

492 ^ DATA BYTES. IF LESS, THE EXIT SWITCH CONSIDERS THE READ OPERATION ^ 

493 ^ AS TERMINATED. IF 100 BYTES HAVE BEEN ENTERED WITHOUT AN 'EOB' IN- ^ 

494 ^ DICATIONy THEY WILL BE CONVERTED BY THE 'VALIN' SUBROUTINE, THEN * 

495 ^ TRANSFERRED TO SIMULATED 1620 CORE STORAGE. THE ENTIRE READ OPER- * 

496 * ATION WILL BE RESUMED. * 

497 * * 

498 ^ 'INSERT' BIT - THE READ OPERATION ON THE 1052 MAY BE DUE TO AN IN- * 

499 * SERT OPERATION, THEREFORE, THE EXIT SWITCH TESTS THE PRESENCE OF * 

500 ^ AN 'INSERT' BIT. IF PRESENT, THE EXIT SWITCH TERMINATES THE READ * 

501 ^ OPERATION AFTER 100 INPUT DATA BYTES AND RETURNS TO 'BIR' THAT IS * 

502 * IN THE 'STOPPED' STATE, * 

503 ^ X 



A2SB 



1620 SIMULATOR 



LOC OBJECT CODE ABDRl ADDR2 STHT SOURCE STATEHENT 



0001F4 


41B0 


058A 




0058A 


506 RNTY 


LA 


WR2,TABLE1 


OOOiFB 


41A0 


05AE 




005AE 


507 


LA 


WR1,TBRNTY 


OOOIFC 


9200 


04B3 


00483 




508 


MVI 


FL£KS14+1,X'C0 


OOO2OS 


9201 


0511 


00511 




509 


MVI 


MASK+1,X*01' 


00G204 


940F 


0485 


00485 




510 


NI 


VALl-f-ljX'OF' 


000206 










511 RNTY60 


DS 


OH 












512 ^ 


BAL 


RljTYPIO 


000203 


00090AD2 






513 


DC 


X'00090AD2' 


00020C 


000003A3 






514 


DC 


A(IOBUFF) 


000210 


47F0 


0228 




00228 


515 


B 


RNTYOK 


000214 


47F0 


0208 




00208 


516 


B 


RNTYGO 


000216 


47F0 


026A 




0026A 


517 


B 


RNTYAL 


00021C 


0000 


0000 


00000 




518 


TM 


TYPERR-J-1,X'30 


lESim ERROR 


UNDEFINED 


SYMBOL 






000220 


4760 


026A 




0026A 


519 


BZ 


RHTYAL 


000224 


9680 


0002 


00002 




520 


01 


NYCHEK,X'80' 


000223 


45F0 


0510 




00510 


521 RNTYOK 


BAL 


15, MASK 


00022C 


9200 


025F 


0025F 




522 


MVI 


TYPSWI'i'l,X'00 


000230 


41D0 


0002 




00CD2 


523 


LA 


NR4,210 


000234 


0000 


oooc 




00000 


524 


LH 


NR5,TYPCSW+6 


IEV044 ERROR 


UNDEFINED 


SYMBOL 






000238 


19DE 








525 


CR 


WR4,WR5 


00023A 


4780 


024E 




C024E 


526 


BE 


TYPEND+4 


00023E 


12EE 








527 


LTR 


I4R5,WR5 


000240 


4720 


0243 




00248 


526 


BP 


^48 


000244 


92F0 


025F 


0025F 




529 


MVI 


TYP5i4I+l,X'F0 


000248 


IBDE 








530 


SR 


NR4>WR5 


C0C24A 


45F0 


047E 




0047E 


531 TYPENO 


BAL 


15,VALIN-^4 


G0024E 


9108 


0000 


00000 




532 


TM 


KEYBIT,X'08* 


000252 


4780 


025E 




0025E 


533 


BZ 


TYPS14I 


000256 


94F7 


0000 


00000 




534 


NI 


KEYBIT,X'F7» 


00025A 


47F0 


0330 




00880 


535 


B 


KAUTO 


00025E 


47F0 


0208 




00208 


536 TYPSWI 


B 


RNTYGO 












537 ^ 






0C0262 


4510 


0700 




007B0 


533 


BAL 


R1,ENTRY3 












539 * 


B 


ENTRYl 


000266 


47F0 


P7F6 




007F6 


540 RNCD2 


8 


ENTRYl 


00026A 


4510 


0060 




00060 


541 RHTYAL 


BAL 


Rl, ALARM 


00026E 


47F0 


0206 




00208 


542 


B 


RNTYGO 



PAGE 17 



ASM H V 05 22-10 05/07/61 

LOAD ADDRESS OF CODE CONVERSION 
TABLE 

SET FIELD EXPANSION SWITCH = OFF 

SET COMMAND MASK = 01 

SET SWITCH FOR CARRIAGE RETURN 

CALL TYPEWRITER 

READ 210 BYTES INTO lOBUFF 

OK, EXIT 

UE, CANCEL, RETRY 
INT.REQ., SEND ALARM 
SENSE, TEST BITS 2+3 

ZERO, CATASTROPHIC DAMAGE 

SET INDICATOR 06 = ON 

LOOK FOR CODE CONVERSION TABLE 

SET EXIT TO NORMAL 

SET L= 210 

LOAD RESIDUAL COUNT OF C S M 

IS RESIDUAL COUNT = 100 

YES,NOTHIf>lG TYPED, EXIT 

NO, IS RESIDUAL COUNT = 0 

NO, L IS LESS THAN 100, PROCESS 

YES, L=210, MODIFY EXIT 

L=210~(CSW) IN WR4 

CHECK VALIDITY OF INPUT DATA 

IS 'INSERT' BIT ON 

NO, CONTINUE 

YES, CLEAR 'INSERT BIT' AND STOP 

READING 

SWITCH 'TYPSWI', BRANCH FOR 

TERMINATION 
INTERROGATE I/O INDICATORS 
RETURN TO INT. LOOP (DELETED) VlLl 
RETURN TO INTERPRETIVE LOOP VlLl 
60 TO SEND AN ALARM REQUEST 
AND RETRY 



A2SB 1620 SIMULATOR 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22,10 05/07/81 

545 ^ ^ 
546* AUTOMATIC CARD LOAD KEY OPERATIONS * 
547* AND READ NUMERICALLY OPERATIONS ON CARDS * 

546 * * 

549 * THIS IS ALSO AN INPUT OPERATION WHICH IS PERMANENTLY IN CORE STOR- * 

550 * AGE SINCE IT MAY BE USED BY AN 'AUTOMATIC LOAD' OPERATION. * 

551 * * 

552 * OPERATION * 

553 * ADDRESSES ARE PROVIDED FOR THE 'MASK' SUBROUTINE TO PREPARE THE * 

554 * CODE CONVERSION TABLE. THE FIELD EXPANSION SWITCH IN THE 'VALIN' * 

555 * SUBROUTINE IS SET OFF TO ALLOW DIRECT NUMERIC INPUT INSTEAD OF * 

556 * ALPHAMERIC EXPANSION, THE COMMAND MASK CHARACTER CAN BE RECOG- * 

557 * NIZED BY 'MASK'. * 

558 * * 

559 * THE SVC 1 CALLING SEQUENCE SUBMITS A REQUEST TO THE CONTROL PROG- * 

560 * RAM FOR A READ OPERATION WITH A COUNT OF 80 BYTES, AS SOON AS THE * 

561 * REQUEST IS ACCEPTED* CONTROL IS GIVEN TO THE 'MASK' SUBROUTINE. * 

562 * THE FREE TIME IS USED TO PREPARE THE CODE CONVERSION TABLE IF SO * 

563 * REQUIRED. THEN, PROCESSING STOPS AT SWITCH 'RNLOCK', * 

564 * * 

565 * AT CHANNEL END, THE CONTROL PROGRAM RETURNS CONTROL TO 'NRMRNC * 

566 * WHICH SETS SWITCH 'RNLOCK' OFF AND RETURNS TO THE POINT OF INTER- * 

567 * RUPTION. * 

568 * THE 'VALIN' SUBROUTINE TRANSLATES THE INPUT DATA BYTES, CHECKS * 

569 * THEM AND MOVES THEM TO CORE STORAGE, * 

570 * * 

571 * IN CASE OF AN ERROR CONDITION, THE 'EXCRET' SUBROUTINE IS ENTERED= * 

572 * - 'INTERVENTION REQUIRED' WILL CAUSE THE MESSAGE 'RDR NO FEED' TO * 

573 * BE TYPED ON THE 1052. * 

574 * - 'UNIT EXCEPTION' WILL CAUSE INDICATOR 09 TO BE SET ON AND THE * 

575 * MESSAGE 'LAST CARD' TO BE TYPED ON THE 1052, * 

576 * * 



000272 


4iB0 058A 




0056A 


579 


RNCD 


LA 


WR2,TABLE1 




LOAD ADDRESS OF CODE CONVERSION 


000276 


41A0 0358 




00358 


560 




LA 


WR1,TBRNCD 




TABLE 


00027A 


9200 0403 


00^63 




581 




MVI 


FLEXSW-H,X' 


00' 


SET FIELD EXPANSION SWITCH = OFF 


00027E 


92G5 0511 


00511 




582 




MVI 


MASK+1,X'05 




SET COMMAND MASK = 05 


000282 


9200 02CD 


002CD 




583 


RNCDIA 


MVI 


RNCSWI-fl,X' 


00' 


SET SWITCH OFF VlLl 


000286 


070007000700 






564 




CNOP 


^,8 






00028C 








585 


RNCDl 


DS 


OH SVC 1 




I/O REQUEST AND INTERRUPT AT 


00028C 


OOOC 






586 




DC 


X'OOOC 




CHANNEL END FOR CARD READER 


00028E 


0000 


















000290 


00000350 






587 




DC 


A(RCDCCW) 






000294 








588 


RNCERR 


DS 


C 






0G0295 








569 




DS 


3C 






000298 








590 




DS 


D 






0002A0 








591 


RNCPSW 


DS 


D 






0002A8 


C00002E0 






592 




DC 


A (NRMRNC) 






0002AC 


000002F0 






593 




DC 


A(EXCRNC) 






0002B0 


92F0 02B9 


002B9 




594 




MVI 


RNL0CK+1,X' 


FO' 


SET LOCK SWITCH ON 


0002B4 


45F0 0510 




00510 


595 




BAL 


15, MASK 




ACCEPTED, LOOK FOR COD.CONV.TAB. 


0002B8 


47F0 02B8 




002B8 


596 


RNLOCK 


B 






LOCK SWITCH (INTERRUPT AT 



A2SB 



1620 SIHULATOR 





OBJECT CODE 


ADDRi ADDR2 


a { 1 1 1 




STATEHENT 






















957F 


03A8 


003A8 




0 7O 




CLI 


I0BUFF,X'7F' 




4780 


0342 




00342 


D 77 




BE 


RNCDUE+10 












Ann 




BE 


RNCDUE+6 


0002C4 


41D0 


0050 




00050 


601 




LA 


WR4,80 




4SF0 


047A 




0047A 






BAL 


15,VALIN 


0002CC 


4700 






00266 


603 


RHCSWI 


BC 


0,RNC02 












604 




B 


TYPSWI+4 




9180 


0002 


00002 




605 




TM 


NYCHEK,X'60' 




4760 


02^6 




00266 


606 




BC 


6,RHCD2 




4110 


0266 




00266 


607 




LA 


R1,RNCD2 




47F0 


b31C 




003iG 


606 




B 


EXCRN2 


0002E0 


9200 


02B9 


002B9 




610 NRHRNC 


HVI 


RHLOCK+1,X''0( 




92FF 


02A0 


D02A0 




611 




HVI 


RNCPSW,X'FF' 




0700 








612 




CNOP 2,4 












613 * 


cur 


o 


UU 0<cilri 


0000 


















000002A0 






614 




nr 






5010 


034C 




0034C 


616 


EXCRHC 


ST 


R1,RNGSAV 


0002F4 


47F0 


0333 




00338 


617 




D 




0C02F8 


47F0 


032C 




0032C 


618 




D 
O 




0002FC 


9108 


0295 


00295 




619 




TM 
I n 




000300 


4780 


0303 




00308 


620 




Rf 




000304 


47F0 


0314 




00314 


621 




D 
u 




000308 


9130 


0295 


00295 




622 


EKCRN3 


TH 




00030C 


0000 


0000 




00000 


623 




BZ 


EXCR3 


IEV044 ERROR 


UNDEFINED 


SYHBOL 






000310 


96.80 


0002 


00002 




624 




01 


NYCHEK,X'80' 












625 




BAL 


R1,ENTRY3 












626 




B 


NRHRNC 


000314 


4110 


0324 




00324 


627 


EXCRN4 


LA 


Rl, EXCRNl 


000318 


92F0 


02CD 


dako 




626 




HVI 


RNCSWI4-1,X'F( 


00031C 


41F0 


C1D8 




OOIDB 


629 


EXCRN2 


LA 


15,REDCHK 


000320 


47F0 


07E2 




007E2 


630 




B 


DISIO 


000324 


5810 


034C 




0034C 


631 


EXCRNl 


L 


R1,RNCSAV 


000326 


47F0 


02E0 




002E0 


632 




B 


NRHRNC 












633 


*EXCRN1 


B 


NRHRNC 


00032C 


5810 


034C 




0034C 


635 


RNCDIR 


L 


R1,RNCSAV 


000330 


45F0 


OODC 




OOODC 


636 




BAL 


15,HESTIR 












637 


^RNCDIR 


BAL 


15,HESTIR 


000334 


0000013E 






636 




DC 


A(RDRNOF) 


0G033B 


5810 


034C 




0034C 


640 


RNCDUE 


L 


R1,RHCSAV 


00033C 


45F0 


0083 




00086 


641 




BAL 


15,HESSAG 












642 


^RNCDUE 


BAL 


15>HESSAG 


000340 


0000014A 






643 




DC 


ACLASCAR) 


000344 


9601 


0005 


00005 




644 




01 


LASTCD,X'01* 


000348 


47F0 


0262 




00282 


645 




B 


RNCDIA 
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ASM H V 05 22.10 05/07/81 

CHANNEL END) 
TEST IF LAST CARD 

YES, BRANCH V1L2 
YES, BRANCH (DELETED) V1L2 
SET COUNTER TO 60 

CHECK VALIDITY AND MOVE DATA 

SNITCH TO SPLIT MESSAGE VlLl 
INTERROG,I/0 INDICC DELETED) VlLl 

IS INDICATOR 06 ON VlLl 

NO, BRANCH VlLl 

YES VlLl 

MESSAGE *READ CHECK' VlLl 



SET LOCK SWITCH OFF AND RETURN 
TO POINT OF INTERRUPTION 

RETURN TO POINT OF INTERRUPTION 



SAVE Rl V1L2 
UE, LAST CARD INDICATION 
INT.REQ.,GO TO SEND MESSAGE 
TEST SENSE BIT 4 VlLl 
IF ZERO BY PASS VlLl 
MESSAGE 'READ CHECK' VlLl 
TEST SENSE BIT 2+3 VlLl 
IF NONE, CATASTROPHIC DAMAGE 



IF SOME, SET INDICATOR 06 ON 

(DELETED) VlLl 
(DELETED) VlLl 



RETURN ADDRESS VlLl 
SET SNITCH ON VlLl 
TYPE MESSAGE 'READ CHECK' + VlLl 
SET BIT STOP ON VlLl 
RESTORE Rl V1L2 

V1L2 



(DELETED) V1L2 



RESTORE Rl V1L2 
SEND MESSAGE READER NO FEEDV1L2 
SEND MESSAGE READ (DELETED) V1L2 

TO OPERATOR AND STOP A 



RESTORE Rl V1L2 
SEND MESSAGE 'LAST CARD' V1L2 
SEND MESSAGE 'LAST (DELETED) V1L2 
TO OPERATOR A 
SET LAST CARD INDICATOR 09 ON 
LOOP ON READ 



A2SB 



1620 SIMULATOR 
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LOC OBJECT CODE 
00034C 



ADDRl ADDR2 STHT SOURCE STATEMENT 
646 RNCSAV DS F 



ASM H V 05 22.10 05/07/81 
ViL2 



000350 020C03A820000050 



648 RCDCCi4 CCN X'02MOBUFF,X'20S80 READ 80 BYTES (SLI FLAG) 



000353 4000FO 

00035B 4305FBFCAAAADFF0 

000363 5AC2DADBDC 

000366 6001DGF1 

00036C 6BC4FBFCAAAAFF 

000373 7B01FBFC 

000377 C009FCF1F2F3F4F5 

000333 DOOODO 

000386 DA05AAAAAAAAAAAA 

00038E E009FAAAF2F3F4F5 

00039A FA05AAAAAAAAAAAA 

0003A2 EF 



650 TBRNCD DC X'AOOOFO' 

651 DC X»4B05FBFCAAAADFF0' 

652 DC X'5A02DADBDC' 

653 DC X»6001D0F1' 

654 DC X'6B04FBFCAAAAFF' 

655 DC X'7B01FBFC' 

656 DC X'C009FOF1F2F3F4F5F6F7F6F9* 

657 DC X^DOOODO* 

658 DC X'DAOSAAAAAAAAAAAA' 

659 DC X'E009FAAAF2F3F4F5F6F7F6F9* 

660 DC X'FAOSAAAAAAAAAAAA' 

661 DC X»EF» 



A2SB 1G20 SIHULATOR 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT 



ASM H V 05 22.10 05/07/81 



666 ^ INPUT/OUTPUT BUFFER * 

667 « * 



0G03A6 

0003A6 eOOODOOOOOOOOOOO 



670 lOBUFF 
671 



DS 
DC 



OD 

210X^0' 



1620 SIHULATOR 
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LOG OBJECT CODE ADDRl ADBR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

'VALIN* SUBROUTINE * 

THIS SUBROUTINE PERFORMS CODE CONVERSION AND VALIDITY CHECKING IN * 

ALL INPUT OPERATIONS (INCLUDING 'INSERT' AND 'AUTOMATIC LOAD'). * 

AT THE REQUEST OF THE CALLING SEQUENCE, IT CAN ALSO EXPAND EACH * 

INPUT DATA BYTE INTO THO INTERNAL STORAGE BYTES, AS REQUIRED IN * 

ALPHAMERIC READ OPERATIONS. * 

OPERATION * 

THE INPUT BUFFER 'lOBUFF' IS SCANNED FOR TRANSLATION OF EACH IN- * 

PUT DATA BYTE, USING THE CODE CONVERSION TABLE LOCATED AT ADDRESS * 

128. AFTER CONVERSION, EACH BYTE IS CHECKED FOR VALIDITY, THEN * 

STORED AT THE P ADDRESS WHICH IS PROGRESSIVELY INCREMENTED. * 

THE WRAP-AROUND FEATURE IS INCLUDED IN THIS SUBROUTINE. * 

ALPHAMERIC READ OPERATIONS INVOLVE ADDITIONAL PROCESSING. THE CON- ^ 

VERTED BYTE IS STORED IN A TWO-BYTE BUFFER, THEN UNPACKED. THE * 

TWO NUMERICS THUS OBTAINED ARE MOVED TO THE CURRENT P AND P+1 AD- * 

DRESSES TO SAVE POSSIBLE FLAGS. * 

IN CASE OF AN INVALID BYTE CODE, THIS SUBROUTINE SETS THE READ * 

CHECK INDICATOR OG ON AND CONTINUES CONVERSION. * 



b/o 




b/H 








o/o 




Of / 




o/O 


^ 


O/ 7 




boU 


9^ 


box 


9^ 


bu^ 




boo 




boH 




bo J 




bob 




bo/ 




boo 




b07 


9^ 


b7U 








692 




693 




69^ 




695 




696 




697 




698 




699 




700 





OOO^/A 


96F0 


0485 


00485 




702 


VALIN 


01 


VAL1+1,X'F0' 


SET SWITCH FOR CARRIAGE RETURN 


00047E 


41A0 


03A8 




003A8 


703 




LA 


WR1,I0BUFF 


LOAD ADDRESS OF I/O BUFFER 


000402 


18B0 








704 




LR 


WR2,0 


CLEAR REGISTER WR2 


000^84 


4700 


049E 




0049E 


705 


VALl 


SC 


NOP, VALAAB 


CARRIAGE RETURN SWITCH 


000^88 


9108 


dODG 


00000 




706 




TM 


KEYBIT,X'08' 


IS INSERT BIT PRESENT 


C0046C 


4760 


0496 




00496 


707 




BC 


8,*+10 


NO , BRANCH 


000490 


4930 


04F4 




004F4 


708 




CH 


RP,LIMITX 


YES, TEST RP EQUAL TO MAPORG+100 


000494 


07AF 








709 




BCR 


10,15 


YES, RETURN TO CALLER 


000496 


9515 


acoo 


00000 




710 




CLI 


0(WR1),X'15' 


NO, IS A CARRIAGE RETURN 


00049A 


4760 


04C4 




004C4 


711 




BE 


VAL2 


YES, BRANCH 


00049E 


43BA 


0000 




00000 


712 


VALAAB 


IC 


WR2,0(WR1) 


NO, INSERT DATA BYTE IN WR2 


0G04A2 


43BB 


Gce-0 




00080 


713 




IC 


WR2,C0NVTB(WR2) 


CONVERT IT TO INTERNAL CODE 


0004A6 


42B0 


04F1 




004F1 


714 




STC 


WR2,BUFF2+1 


STORE IN RIGHTMOST POSITION 


0004AA 


95AA 


04F1 


004F1 




715 




CLI 


BUFF2+1,X'AA' 


IS DATA VALID 


0004AE 


4780 


04E8 




004E8 


716 




BE 


CODINV 


YES, BRANCH CODINV 


0004B2 


4700 


0404 




004D4 


717 


FLEXSW 


BC 


NOP, EXPAND 


NO, FIELD EXPANSION SWITCH 


000406 


42B8 


0000 




00000 


718 




STC 


WR2,0(RP) 




0004BA 


4168 


0001 




00001 


719 




LA 


RP,1(RP) 


RP = RP + 1 


0004BE 


1987 








720 




CR 


RP,SI2E 


IS RP GREATER THAN SIZE 


0004C0 


4720 


04CE 




004CE 


721 




BH 


VAWR 


YES, BRANCH TO VAWR 


0004C4 


41AA 


0001 




00001 


722 


VAL2 


LA 


WR1,1(WR1) 


N0,WR1=WR1+1 


0004C8 


4600 


0434 




00484 


723 




BCT 


WR4,VAL1 


LOOP IF COUNT NOT EQUAL TO ZERO 


0004CC 


07FF 








724 




BR 


15 


RETURN TO CALLER 



A2S8 1620 SIHULATOR 



LOC 


OBJECT CODE 


AODRl ADDR2 


STMT 


SOURCE 


STATEMENT 


OOO^CE 


16B6 








726 


VANR 


LR 


RP,HAPORG 


n fi A /r n fi 


47F0 04C4 






004C4 


/ tf 




B 


VAL2 


00040^ 


Fill 04F0 


04F0 


004F0 


004FO 


728 


EXPAND 


HVO 


BUFF2(2),BUFF2(2) 


UUU4IJA 


OlOi 8000 


O'^fFO 


00000 


004F0 


Ton 




MVN 


0(2,RP),BUrF2 


0004E0 


4166 0001 






00001 


730 




LA 


RP,1(RP) 


UUu4t4 


47F0 ¥m 






004BA 


/ol 




B 


FLEXSW+8 




9680 0002 




00002 




73g 


lUUaNy 


01 


NYCHEK,X*80' 


DOO^EC 


47FD 04B2 






C04B2 


734 




B 


FLEXSW 


ft ft n A p* ft 


0000 








/OD 


Dur 


DC 


X'OOOO' 


UUU ir ^ 


0000 


















00003066 










1 TMTTV 

L in X i A 


OC 


ACCORESl+lOO) 


O00^F3 


65F0 00F4 






000F4 


739 


ERROR 


BAL 


15 ,HE5T0P 


0004FC 


G000019D 








740 




DC 


A(CHKSTP) 


000500 


A7F0 0500 






00500 


741 




B 




000504 


45F0 0038 






00068 


742 


PRGERR 


BAL 


15,MESSAG 


000508 


OGOOOiC? 








743 




DC 


A(CHK360) 


00050C 


'^'FO 05 OC 






005 OC 


744 




B 
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ASM H V 05 22.10 05/07/81 

LOAD RP WITH MAPORG 

RETURN TO VAL2 

SHIFT DATA BYTE TO THE LEFT 

HOVE 2 NUMERICS TO CORE STORAGE 

RP = RP + 1 



SET READ CHECK INDICATOR ON 
AND RETURN 



THO-BYTE BUFFER 



MAPORG+100 A 



BRANCH TO MESTOP 
^ A 

V1L2 

PROGRAM CHECK 360 V1L2 
STOP SIMULATION V1L2 A 

AND WAIT V1L2 



A2S3 1620 5IHULAT0R 
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LOC OBJECT CODE 



ADDRl ADDR2 STHT 



SOURCE STATEHENT 



ASM H V 05 22.10 05/07/81 



750 ^ THIS SUBROUTINE HANDLES ANY REQUEST FOR A CODE CONVERSION TABLE ^ 

751 ^ COHING FROH AN I/O OPERATION. THERE IS ONLY ONE CODE CONVERSION * 

752 * TABLE LOCATED AT ABSOLUTE ADDRESS 128 TO 38^ (256 BYTES) .HOWEVER, * 

753 ^ UP TO 16 DIFFERENT CODE CONVERSION TABLES CAN BE REQUIRED BY THE * 

754 * 1620 CONFIGURATION. CONSEQUENTLY, THE UNIQUE CODE CONVERSION TAB- ^ 

755 * LE MUST BE LOADED AS SOON AS REQUESTED BY THE 'MASK* SUBROUTINE. ^ 

756 ^ * 

757 * OPERATION * 
756 * A SPECIFIC MASK BYTE IS PROVIDED TO THE 'MASK' SUBROUTINE BY THE ^ 

759 ^ CALLING I/O OPERATION. THIS MASK IS COMPARED WITH A COMMAND CHECK * 

760 * BYTE TO CHECK IF THE CALLING I/O OPERATION IS DIFFERENT FROM THE * 

761 ^ PRECEDING ONE. * 

762 * * 

763 * IF DIFFERENT, 'MASK' LOADS THE CODE CONVERSION TABLES WITH THE * 

764 * DATA CORRESPONDING TO THE I/O OPERATION REQUESTED. 'MASK' STORES * 

765 * IN ITS COMMAND CHECK BYTE THE SPECIFIC MASK PROVIDED BY THE I/O * 

766 ^ OPERATION. THUS, IF THE FOLLOWING I/O OPERATION IS THE SAME, THE * 

767 ^ IDENTITY BETWEEN THE SPECIFIC MASK BYTE AND THE COMMAND CHECK ^ 
766 ^ BYTE IS ESTABLISHED AND LOADING OF THE TABLE WILL BE BYPASSED. * 

769 ^ * 

770 * TWO ARGUMENTS SUPPLIED IN REGISTERS WRl AND WR2 BY THE CALLING * 

771 ^ I/O OPERATION ARE REQUIRED FOR LOADING. THE FIRST ONE IS THE AB- * 

772 ^ SOLUTE ADDRESS OF THE BASIC TABLE (TABLE 1, 2 OR 3). THE SECOND * 

773 ^ ONE IS THE ABSOLUTE ADDRESS OF AN AUXILIARY TABLE (FOR INSTANCE * 

774 * 'TBRNTY', 'TBRNCD", 'TBPRNS ETC.) * 

775 * ^ 

776 * THE BASIC TABLE CONTAINS THE MAXIMUM NUMBER OF BYTES COMMON TO A * 

777 * GIVEN GROUP OF I/O OPERATIONS (EXAMPLE = 'TABLEl' FOR READ, WRITE * 
773 * AND DUMP NUMERICALLY, 'TABLE2' FOR READ AND WRITE ALPHAMERICALLY, * 
779 * 'TABLE 3' FOR PRINT OPERATIONS). ^ 
760 * * 
781 * THE AUXILIARY TABLE CONTAINS A VARIABLE NUMBER OF BYTES WHICH ARE * 

762 * ADDED TO THE PREVIOUSLY LOADED FIELDS OR THEIR SCRATCH PAD PARTS. * 

763 * * 

764 * THE BASIC AND AUXILIARY TABLES CONSIST OF VARIABLE LENGTH FIELDS, * 

765 * THE LAST ONE BEING A HEXADECIMAL 'EE^ BYTE FOR BASIC TABLES, AND * 

786 5* A HEXADECIMAL 'EF' BYTE FOR AUXILIARY TABLES. ALL FIELDS, EXCEPT * 

787 * THE LAST ONE, CONTAIN = ^ 

768 * * 

789 * - ONE BYTE WHICH PROVIDES THE RELATIVE ADDRESS IN THE CODE CONVER- * 

790 * SION TABLE AT WHICH LOADING OF THE DATA FIELD STARTS ^ 

791 * - ONE BYTE WHICH CONTAINS THE ACTUAL LENGTH (L - 1) OF THE DATA * 

792 * FIELD TO BE LOADED ^ 

793 * - 'L' BYTES WHICH FORM THE DATA FIELD PROPER. * 

794 * * 



747 ^ 

748 * 

749 * 



'MASK' SUBROUTINE 



795 




000510 9500 0568 
000514 078F 
000516 92AA 0080 



00568 



00080 



797 MASK 
798 

799 MVTAB 



CLI COMDB,X'00' 

BER 15 

MVI CONVTB,X'AA' 



IS COMMAND BYTE = MASK 

YES, RETURN TO CALLER 

RESET CODE CONVERSION TABLE 
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LUL 


OBJECT CODE 


ADDRl ADDR2 


D m t 




STATEMENT 


ACM U \l ftC ^0 1ft 

Hon n V Ud 


UuUDiH 


D2FE 


0081 


0080 


00081 


00080 


oUU 




MVC 


C0HVTB^'1(255),C0HVTB 






90CE 


0570 






00570 


Clfll 

oul 




STH 


NR3,WR5,HASKRG 


CAliC DrrTCTCDC IID^ TA HOC 




16D0 










tX fiO 




LR 


yR4,0 


n CAD lfD6 AUPk 1 IDC 

LLtAK HK4 ftNU HKd 




ISED 










oUo 




LR 


14R5,0 




UUUd.:o 


41C0 


0050 






00080 


OUH 




LA 


WR3,C0NVTB 


LID ■5- Af TARI C TA DP RUT! 


n cr r 


95EE 


BOCG 




00000 






Al 
nL 


CLI 


0(NR2),K'EE' 




UUuj Ju 


4780 


0553 






00558 


OUb 




BE 


AP 




n n n r 'J A 


95EF 


BOOO 




00000 




A A7 




CLI 


0(HR2),X*EF'^ 




nn "jn 


4780 


055E 






0055E 


oUo 




BE 


AQ 




UUUdoL 


43D8 


0001 






00001 


ana 


All 


IC 


MR4,1(I^R2) 


iNbcLKi Lcribin Ur nUvtU ritLU 




43E8 


0000 






00000 


Gift 

oiU 




IC 


NR5,0(MR2) 


TWCCDT AnnDETCC TnCKlTTC TPATTAM 

inbLKI HUUKtbb Ur lUtri 1 ir ILH 1 XUri 




42EG 


0560 






0056D 


Oil 




STC 


yR5,MLDT+3 


CTrkDC TT TkJ CTDCT ADCDAUn 

olUKt it IN riKbl UrtKftMi 


/\ ft n r A o 


4188 


0002 






00002 


oil 




LA 


hk2>Z(hRZ) 


lino 1 ID*? J. 0 




44D0 


056A 






0056A 


813 




EX 


WR4,MLDT 




000550 


4lBD 


?5 /V 1 

BOOi 






00001 


814 




1 A 

LA 


lino i /iin/t 1 mo N 




000554 


47F0 


052C 






0052C 


815 




B 


AL 




000558 


18BA 










816 


AP 


LR 


WR2,NR1 




rtft Acr A 


47F0 


053C 






0053C 


01/ 




B 


AU 




nnncRC 

UUu jfDEl 


D200 


0583 


0511 


00538 


00511 


010 


nil 


MVC 


C0MDB(1),MASK+1 


Du 1 LUnnriPiU DT 1 C. - nHois 


000564 


96CE 


0570 






00570 


819 




LM 


WR3,RR5,MASKR6 


LOAD REGISTERS WR3 TO WR5 


000568 


07FF 










820 




BR 


15 


RETURN TO CALLER 


00056A 


D200 


COCO 


BOOO 


00000 


00000 


822 


MLOT 


MVC 


0(1,NR3),0(WR2) 




000570 












824 


MASKR6 


DS 


6F 




000563 


0000 










625 


COHDB 


DC 


X»0000» 


COMMAND CHECK BYTE 



05/07/81 



828 *^^5ii€5e*ei^5«^*9€^^?€Je*e^^e5^9€3«^^^9^?t5f^^^^^9€^^^^5t^^5f^^f^^e9(9f3f9f9€9t^fJf9t9t^t5t^ 

829 ^ * 

830 * DEFINITION OF CODE CONVERSION TABLES ^ 

831 * ^ 

832 ^^*^^^^^^^*^*^^^5f^^^9t5t**e^t9*^5€^f9^9t^^9e^e^*5f^f*^^**^f^$t*^«>f«9^5^i^*^*9e^t*^*^^^9e^ 



0G058A 


D00A6CO1D2D3D4D5 


634 


TABLEl 


DC 


X'D00A60D1D2D3D4D5D6D7D8D95A' 


000597 


DF004F 


835 




DC 


X'DF004F' 


00059A 


F00AFGF1F2F3F4F5 


836 




DC 


X'F00AF0F1F2F3F4F5F6F7F8F9E0' 


0005A7 


FC004C 


837 




DC 


X*FC0040» 


0005AA 


FF006F 


838 




DC 


X'FF006F' 


0005AD 


EE 


839 




DC 


X'EE' 


0005AE 


4000F0 


840 


TBRNTY 


DC 


X'4000F0' ^ 


0005B1 


4F00DF 


841 




DC 


X'4F00DF' * 


0005B4 


5A00DA 


842 




DC 


X'5A00DA' 


0005B7 


600000 


843 




DC 


X'6000D0' 


0005BA 


6F00FF 


644 




DC 


X'6F00FF' 


00058D 


7B01FAFC 


845 




DC 


XVBCIFAFC 


0005C1 


DOOOAA 


846 




DC 


X 'DOOOAA' 


0005C4 


DA05AAAAAAAAAAAA 


647 




DC 


X'DA05AAAAAAAAAAAA' 


0005CC 


FA05AAAAAAAAAAAA 


848 




DC 


X'FA05AAAAAAAAAAAA» 


0005D4 


EF 


649 




DC 


X'EF' 


0005D5 


4B050304AAAA5F10 


850 


TA8LE2 


DC 


X'4B050304AAAA5F10' 


0005DD 


5A075A131404AAAA 


851 




DC 


X'5A075A131404AAAA2021' 


0005E7 


6B012324 


852 




DC 


X'6B012324' 
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LOC OBJECT COOE ADDRi ADDR2 StHT SOURCE STATEHEHT ASM H V 05 22.10 05/07/81 





or u V vi 


{J J Q 




A or u u vi 


U U U J U.U 




fi54 


DC 


X'7R013334» 








DC 


A V# V V 7f VT JLT£.T J T DT/ TUT 7 


V U U J f i» 


U U U 7^ rC,./ J* J 'T.i/ ^ 


856 


DC 


M'D0Q95 05 1525 3545556575859' 






857 


DC 


X*E0090AAA62636A6566676S69* 




FQ097n71 77737475 


858 


DC 


M»Ffi0970717273747576777879* 




FF 


\JJ 7 


DC 


A {.u. 






A An TAR! F'^ 


nr 


ynnnn^n* 

A UUUUtU 




U J U A 1 U T W 




Df 




00QA2A 


flAOOFn 


562 


DC 


X'OAOOFO' 


00062D 


0F016F50 


863 


DC 


X'OF016F50' 


0G0^y31 


13015B5C 


864 


DC 


X'13015B5C' 


000635 


1F05^F6061AA6B6C 


665 


DC 


XUF05^'4F6061AA6B6C' 


D0063D 


35017B7C 


866 


DC 


X'33017B7C» 


0006^1 


4106C1C2C3C4C5C6 


867 


DC 


X '4108C1C2C3C4C5C6C7C8C9 ' 


0006^C 


50CAODD1D2Q3D4D5 


868 


DC 


X'500AD0D1D2D3D4D5D6D7D8D95A' 


000659 


6207E2E3E4E5E6E7 


869 


DC 


X'6207E2E3E4E5E6E7E8E9' 


000663 


7009FOFiF2F3F4F5 


670 


DC 


X*7009F0F1F2F3FAF5F6F7F8F9* 


00066F 


EE 


871 


DC 


X'EE' 
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LOC OBJECT CODE 



ADDRl ADDR2 STMT SOURCE STATEMENT 



ASH H V 05 22.10 05/07/81 



673 ^^t^9(9€^*f^(9$^^^^^j$^^^f^5€^eie^^^^^f«^^^^«^*9€^(9t****«***^f^9*^«*9eie9t^e*ie^^t**^9t9f*^ 
874 
875 
87G 
677 
878 
879 
680 
681 
882 
883 
884 
885 
686 
867 



SIMULATION OF A 
DATA, SINCE THE 
STORAGE, CANNOT 
INPUT DATA ARE 



I/O SIMULATION 

CODE CONVERSION 

1620 I/O DEVICE REQUIRES CODE CONVERSION OF INPUT 
BIT CONFIGURATION, AS REPRESENTED IN 1620 CORE 
BE DIRECTLY ENTERED INTO SYSTEM/360 MAIN STORAGE. 
THEREFORE FIRST ENTERED INTO AN INPUT BUFFER AREA 



FOR CONVERSION INTO A FORMAT ACCEPTABLE TO THE SIMULATOR, OUTPUT 
DATA MILL BE ENTERED INTO AN OUTPUT BUFFER AREA FOR CONVERSION 
INTO AN APPROPRIATE FORMAT BEFORE BEING WRITTEN OR PUNCHED. 



890 ^ * 

891^ I/O OPERATION ENTRIES ^ 

892 * * 

693 ^ THIS SEQUENCE IS USED FOR ALL CONTROL, READ, WRITE AND DUMP OPERA- ^ 

694 ^ TIONS. IT IS ENTERED FROM THE BASIC INTERPRETIVE ROUTINE VIA THE * 

895 * OPERATION CODE TABLE . ^ 

896 * * 

897 * ENTRY POINTS « 

898 * THERE ARE SIX ENTRIES CORRESPONDING TO THE I/O OPERATION CODES = * 

899 * ^ 

900 ^ K~34 DN-35 NN-38 RA-37 WA-'39 RN-36 * 

901 * ^ 

902 ^ AT EACH ENTRY POINT, CONTROL IS FIRST GIVEN TO THE 'OUTIN' SUB- ^ 

903 ^ ROUTINE TO TEST THE AVAILABILITY OF THE I/O SEQUENCE TO BE USED. * 

904 * THEN, THE ADDRESS OF THIS ROUTINE IS OBTAINED FROM THE FOLLOWING ^ 

905 * HALFWORD TABLE (SIMILAR TO THE OPERATION CODE TABLE), AND THE SE- * 

906 ^ QUENCE BRANCHES TO THIS ADDRESS. * 

907 * * 



906 ^*^»5e^^^^9*^t^^*^^^«*^^Jf^^^***5f»5*»^**»*K*^^it«9t5t9f^3t9^«%9e* 
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LOG OBJECT CODE ADORl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22-10 05/07/81 



912 

913 * * 

914 * CONTROL ^ 

915 * * 

91^ 9t9fie^«9e^t9e9e9(^t^^J^9^9«9e*3^*^*9^5t*^^t*»9t9€%*c^«je*^*«9f9e9t9(***^t9f*je^**5eie*?(9f^9e^* 



000^.70 45E0 0760 
000674 47F0 04F8 
000678 43DD 06EC 
00067C 46DD 070C 
000660 07FD 



00780 918 K34 
004F8 919 
006EC 920 
0070C 921 
922 



BAL WR5,0UTIH 

B SEE! 

IC WR4,NRITAB(WR4) 

LH WR4,KTABA(WR4) 

BR WR4 



COMMAND ANALYSIS 
BRANCH TO DISK OPERATIONS 
INSERT IN 14R4 ADDRESS 
OF 1620 INSTRUCTION 
BRANCH TO INSTRUCTION 



924 

925 * ^ 

926 * READ NL^ERICALLY * 

927 ^ * 

928 



000662 


45E0 


0780 


00760 


930 


RN36 


BAL 


WR5,0UTIN 


COMMAND ANALYSIS 


000636 


47F0 


04F8 


004F8 


931 




B 


RCDIl 


BRANCH TO DISK OPERATIONS 


00 066 A 


43DD 


06FC 


006FG 


932 




IC 


WR4,RDTAB(WR4) 


INSERT IN WR4 ADDRESS 


00068E 


45D0 


C720 


G0720 


933 




LH 


i4R4,RNTAB(l4R4) 


OF 'READ NUMERICALLY' 


000692 


07FD 






934 




BR 


WR4 


BRANCH TO READ 










935 












936 


















937 






WRITE NUMERICALLY * 










938 


















939 




000694 


45E0 


0780 


00780 


941 


NN36 


BAL 


WR5,0UTIN 


COMMAND ANALYSIS 


000698 


47F0 


04F8 


C04F8 


942 




B 


WDIl 


BRANCH TO DISK OPERATIONS 


00069C 


43DD 


l}6EC 


006EC 


943 




IC 


WR4,NRITAB(WR4) 


INSERT IN WR4 ADDRESS 


0006A0 


48DD 


0730 


00730 


944 




LH 


WR4,NNTAB(WR4) 


OF 'WRITE NUMERICALLY' 


0006A4 


07FD 






945 




BR 


WR4 


BRANCH TO WRITE 



A2SB 



1G20 SIMULATOR 
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LOC OBJECT CODE 



ADDRl ADDR2 STMT SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



949 * * 

950 * READ ALPHAHERICALLY * 

951 ^ ^ 

952 ^^^^^^^^^^^^^^^^^)^9e^>r^^9^^^^^^9^9(^^^^^^^9(9^9^9ie^9^^^9^9(^9(^9fie9(9f9eX^^^9^^^ 





45E0 


0780 


00760 


954 


RA37 


BAL 


WR5,0UTIN 


COMMAND ANALYSIS 


0006AA 


47F0 


04F6 


004F8 


955 




B 


ERROR 


GO TO ERROR 


00C6AE 


43DD 


06FC 


006FC 


956 




IC 


WR4,RDTAB(NR4) 


INSERT IN WR4 ADDRESS OF 


0006B2 




0744 


00744 


957 




LH 


NR4,RATAB(WR4) 


OF 'READ ALPHAMERICALLY' 




^280 


0F58 


00F58 


956 


RAl 


STC 


RP,STC 




0006EA 


91G1 


0F53 


00F53 


959 




TM 


STCX'Ol* 


IS P ADDRESS EVEN 


0006BE 


4780 


09F0 


009F0 


960 




BZ 


ERRORP 


NO, ERROR 


0006C2 


0G60 






961 




BCTR 


RP,0 


RP=RP-1 


0006C^ 


07FD 






962 




BR 


WR4 


YES, 60 TO READ OR WRITE 



965 * * 

966 ^ WRITE ALPHAMERICALLY ^ 

967 * * 



0006C6 


45E0 


0780 


00780 


970 


WA39 


BAL 


WR5,0UTIN 


COMMAND ANALYSIS 


0006CA 


47F0 


04F6 


004F8 


971 




B 


ERROR 


60 TO ERROR 


0006CE 


43DD 


06EC 


006EC 


972 




IC 


WR4,WRITAB(WR4) 


INSERT IN yR4 ADDRESS OF 


0006D2 


46DB 


0756 


00758 


973 




LH 


WR4,WATAB(WR4) 


'WRITE ALPHAMERICALLY' 


0006DI 


47FD 


06B6 


006B6 


974 




B 


RAl 


BRANCH TO WRITE 










976 




AIF 


(NOT aDISK),N0DSK6 












977 


,N0DSK6 


ANOP 












004F6 


978 


SEEl 


EQU 


ERROR 


DISKS NOT EXISTING 








004F8 


979 


WDIl 


EQU 


ERROR 










004F8 


980 


RCDIl 


EQU 


ERROR 












981 


•DSKXl 


ANOP 







A2SB 
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LOC OBJECT CODE AODRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22,10 05/07/81 

985 ^ DUMP ^ 

986 * ^ 

987 9f9e^t^^^9f$f3i^5e*^^^f^fi(^*c9e^^^*ie*^it*^^**«^^^9t9t^^9f9f*»je9^^e*^e9€^ 



OOOSDA 


45E0 


0730 


00780 


989 DN35 


BAL 


0006DE 


47F0 


04F6 


004F8 


990 


B 


0G06E2 


43DD 


0€EC 


006EC 


991 


IC 


0006E6 


43DD 


076C 


0076C 


992 


LH 


00D6EA 


07FD 






993 


BR 



WR5,0UTIN COMMAND ANALYSIS 

ERROR GO TO ERROR 

I4R4,WRITAB(WR4) INSERT IN NR4 ADDRESS OF 

NR4,DNTAB(NR4) 'DUMP* 

141^4 BRANCH TO DUMP 



UUUOuL 


UUUiiU"! UUUd 




nr 


A UUU£UtUUUD 


InuLC. ruts HKXii. 




UUUor X 


UUUuUvl- UUD 


770 




A UUUUU UUU uo 








n A n n P d h f! n n n 


QQ7 
77/ 




A uuouuuuuuuuu 






UUUor L 


U UO^ J Ui?'l UUUO 


770 tsUInD 


nr 


A UUUfc.UUUIUUUo 


TARI r PHP PFAH 




UUU/U£, 


UUUUU*iUUUU 


QQQ 

777 


nr 


A UUUUUUUUUU 






uuu/ u/ 


u u 0 1? u y u sj u J 


lUUv 




A UUUUUUUUUU 






UUU/UL 




XUUX i\lnDn 


nr 




TARi F FHP rnisiTPni 

InuLC rUK LUri i isUL 


rl 


uuu/ iu 


UUUUiro*t 


XUUc 


nr 


Afk'TVPP't 




A 

n 


uuu/ in 


UyUuU'irO 


xuu^ 


nr 

UL 






A 

n 


UUU/Id 


uuuUv;*-*ro 


XUU4 


nr 

UL 






A 

n 


nftA71T 
UUU/ XL 




XUUD 


nr 

UL 


n V i\rrvXi>i 1 J 




A 
n 




Q0QQQ4F8 




DC 


A (ERROR) 


TABLE FOR READ 




000724 


0C0001F4 


1007 


DC 


A(RNTY) 


NUMERICALLY 


A 


000728 


OOOOOAOO 


1008 


DC 


A(RNPT) 




A 


00072C 


00000272 


1009 


DC 


A(RNCD) 


% 


A 


00073D 


000004Fa 


1010 WNTAB 


DC 


A (ERROR) 


TABLE FOR WRITE 


A 


000734 


000aiE7A 


1011 


DC 


A(WNTY) 


NUMERICALLY 


A 


00073B 


OOOOOAOO 


1012 


DC 


ACHHPT) 




A 


00073C 


OOOOIFBA 


1013 


DC 


A(WNCD) 




A 


000740 


000020CC 


1014 


DC 


A(PRN) 




A 


000744 


0000C4F6 


1015 RATAB 


DC 


A(ERROR) 


TABLE FOR READ 


A 


000746 


00001E44 


1016 


DC 


A(RATY) 


ALPHAMERICALLY 


A 


00C74C 


OOOOCAOO 


1017 


DC 


A(RAPT) 




A 


000750 


00001FA2 


1018 


DC 


A(RACD) 




A 


000754 


000004F6 


1019 


DC 


A (ERROR) 




A 


000753 


0000D4F3 


1020 NATAB 


DC 


A(ERROR) 


TABLE FOR WRITE 


A 


00075C 


00001EF6 


1021 


DC 


A (MA TV) 


ALPHAMERICALLY 


A 


0007GO 


OOOOOAOO 


1022 


DC 


A(WAPT) 




A 


0007G4 


0000207C 


1023 


DC 


A(WACD) 




A 


000768 


00002224 


1024 


DC 


A(PRA) 




A 


0007GC 


000004F8 


1025 DNTAB 


DC 


A (ERROR) 


TABLE FOR DUMP 


A 


000770 


00001F2A 


1026 


DC 


A(DNTY) 




A 


000774 


OOOOOAOO 


1027 


DC 


A(DNPT) 




A 


000776 


0000209C 


1028 


DC 


A(DNCD) 




A 


00077C 


00002258 


1029 


DC 


A(PRD) 


9e 


A 



A2SB 1620 5IHULA TOR PAGE 31 

LOC OBJECT CODE AODRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22,10 05/07/81 

1031 * DISKV SECTION DELETED 

1032 AGO .NODISKV 

1033 .NODISKV ANOP END 

1034 ^ NI5KV SECTION DELETED TOO 

1035 AGO .NONISKV 

1036 .NONISKV ANOP END 

1037 NODSK COMMON PART OF SIM20 

1039 * * 

1040* 'OUTIN» SUBROUTINE * 

1041 * X 

1042 * OPERATION * 

1043 * 'OUTIN' CHECKS THE TYPE OF I/O OPERATION BLOCK PRESENT IN CORE * 
1044* STORAGE. IT GIVES DIRECT CONTROL TO IT. * 
1045 * * 
1046 



000780 


DiOO 


07A9 5009 


007A9 


00009 


1048 


OUTIN 


MVN 


AC0MA+1(1),9(CNTR) 


YES, INSERT IN WR4 BINARY 
EQUIVALENT OF Q9 


000736 


48D0 


07A3 




007A8 


1049 




LH 


NR4, ACOMA 


00070A 


910B 


5001 


00001 




1050 




TM 


1(CNTR),X'0B» 


TEST IF CONTROL COMMAND 


00G76E 


4780 


079E 




0079E 


1051 




BZ 


DFROG 


YES, BRANCH 


000792 


90AE 


0570 




00570 


1052 




SIM 


HRl,kTO,MASKRG 




00C796 


45F0 


0906 




00906 


1053 




BAL 


15,C0NVP 


NO, CONVERT P ADDRESS 


00079A 


98AE 


0570 




00570 


1054 




LM 


NRl,t4R5,HASKRG 




00D79E 


9107 


5009 


00009 




1055 


DPR06 


TM 


9(CNTR),X'07* 


IS Q9 = X'07' 


0007A2 


47CE 


0004 




00004 


1056 




BC 


BZM,4(NR5) 


NO, RETURN 


0007A6 


07FE 








1057 
1058 




BR 
END 


NR5 


RETURN TO CALLER 












1059 


* NASKV SECTION DELETED 














1060 




AGO 


.NONASKV 














1061 


.HONASKV ANOP 






0007A8 


0000 








1062 


ACOMA 


DC 


K'OOOO' 





A2SB 
LOG 



1620 SIHULATOR 
OBJECT CODE ADDRi ADDR2 
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STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/61 



1065 * ^ 

1066 ^ BASIC INTERPRETIVE ROUTINE ^ 

1067 * ^ 

1068 * THE BASIC INTERPRETIVE ROUTINE ("BIR^ CONSISTS OF = ^ 

1069 ^ * 

1070 ^ - SWITCH INTERROGATION ROUTINE ^ 

1071 ^ - 'BIR'' PROPER REQUIRED IN ALL CASES OF SIMULATION FOR DECODING ^ 

1072 * OF THE 1620 INSTRUCTION * 

1073 * - ROUTINES FOR CONSOLE KEY SIMULATION * 
1074^ - ADDRESS CONVERSION ROUTINES * 

1075 ^ - ERROR ROUTINES * 

1076 * 5^ 



1077 %^^^^9f^^9(9(^^«9«^^^^%^9(9e^^^^^^9f^9fK^d(^if^%9(^9(^9^%%^X%^«9eX9eX9(9(^^ 



1080 ^ * 

1081 ^ SNITCH INTERROGATION * 
1082* * 

1083 ^ THIS SEQUENCE CONTAINS THREE SUBROUTINES ('ENTRY4', •ENTRY3', AND * 

1084 * 'ENTRYO') NHICH INTERROGATE THE CONDITIONS= DISK CHECK, I/O CHECK * 
1035 * AND ARITHMETIC CHECK. * 
1086 ^ * 



0007AA 


1B43 








1089 


ENTRY4 


SR 


SIMB2,SIMB1 


DECREMENT BASE REGISTERS 


0007AC 


9200 


0829 


00829 




1090 




HVI 


KSAVE+1,K'00* 


SET KSAVE + 1 = X'OO' 












1091 




AIF (NOT &DISK).N0DSK12 














1092 


.N0DSK12 ANOP 






0007B0 










1094 


ENTRY3 


DS OH 


SVC 9 


ENABLE INTERRUPTIONS 


0007B0 


9102 


0001 


00001 




1095 




TH 


PROSMI,X»02' 


TEST IF I/O SWITCH IS ON STOP 


0007B4 


4711 


0000 




00000 


1096 




BO 


0(R1) 


NO, RETURN TO CALLER 


0007B6 


9160 


0002 


00002 




1097 




TM 


NYCHEK,K'60' 


TEST IF 'READ CHECK' 


0007BC 


4780 


07C6 




007C8 


1098 




B2 


^+12 


IF NO, BY-PASS 3 INSTRUCTIONS 


0007C0 


4iF0 


OlDB 




OOIDB 


1099 




LA 


15,REDCHK 


IF YES, LOAD Ri5=A(HESSAGE) 


0007C4 


47FG 


07E2 




007E2 


1100 




B 


DISIO 




0007C8 


9140 


0002 


00002 




1101 




TM 


NYCHEK,X'40' 


TEST IF 'WRITE CHECK' 


0007CC 


4780 


07D8 




007D8 


1102 




B2 


^+12 




0007D0 


41F0 


01B9 




00189 


1103 




LA 


15,NRICHK 


IF YES, LOAD R15=ACMESSAGE) 


0007D4 


47F0 


07E2 




007E2 


1104 




B 


DISIO 




0007D8 


9106 


0002 


00002 




1105 




TM 


NYCHEK,X'08' 


TEST IF PRINTER CHECK 


C007DC 


0781 








1106 




BZR 


Rl 


IF NO, RETURN TO CALLER 


0007DE 


41F0 


OICO 




OOlCO 


1107 




LA 


15,PRICHK 


IF YES, LOAD R15=A (MESSAGE) 


0007E2 


40F0 


07EA 




007EA 


1108 


DISIO 


STH 


15,^+8 


STORE ADDRESS OF MESSA6 FOR 












1109 








BRANCH AND LINK 


0007E6 


45F0 


0088 




00088 


1110 




BAL 


15,MESSAG 


DISPLAY INDICATOR 


0007EA 


0000 


















0007EC 


00000000 






1111 




DC 


A(0) 




0007F0 


9660 


0000 


00000 




1112 


lOSNIT 


01 


KEYBIT,X'80' 


SET STOP BIT AND RETURN 



A2SB 1620 SIMULATOR 
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LOC OBJECT CODE ADDRi ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

0007F4 07F1 1113 BR Rl TO CALLER 



A2Se 1620 SIHULATOR 

LOC OBJECT CODE ADDRl ADDR2 



PAGE 34 



STHT SOURCE STATEHENT ASH H V 05 22.10 05/07/81 



1117^ * 

1116 * ^BIR' * 

1119 * * 

1120 * 'BIR* DECODES EACH 1620 INSTRUCTION LOCATED IN 5IHULATED CORE * 

1121 ^ STORAGE. THE ABSOLUTE ADDRESS OF THIS INSTRUCTION IS GIVEN BY RE- * 

1122 ^ GISTER »CNTR' HHICH FUNCTIONS AS AN INSTRUCTION COUNTER. THE * 

1123 ^ OPERATION CODE IS PACKED TOGETHER WITH THE P-ADDRESS OF THE CUR- ^ 

1124 * RENT INSTRUCTION, THEN INSERTED IN REGISTER 1 AND HULTIPLIED BY * 

1125 * 2. THE VALUE THUS OBTAINED IS USED AS AN INDEX FOR THE OPERATION ^ 

1126 * CODE TABLE 'OPTBL*. * 

1127 * * 

1128 ^ 'BIR' HAS TWO ENTRY POINTS = * 

1129 * * 

1130 ^ -ENTRY 1 IS USED TO INCREMENT THE INSTRUCTION COUNTER BY 12 * 

1131 ^ * 

1132 ^ -ENTRY 2 IS USED TO BYPASS INCREHENTING (PRECEDING INSTRUCTION IS * 

1133 ^ AN UNCONDITIONAL BRANCH OR A CONDITIONAL BRANCH WHOSE CONDITION * 

1134 ^ HAS BEEN SATISFIED). * 

1135 ^ IT ALSO TESTS THE PRESENCE OF THE 'STOP* BIT IN THE 'KEYBIT' * 

1136 * BYTE. IF THIS BIT IS ABSENT (ZERO), THE NORHAL DECODING FUNCTION * 

1137 ^ OF *BIR' IS EXECUTED. IF PRESENT (ONE), THE 'START' EXIT IS * 

1138 * TRANSFORMED TO NO OPERATION ('NOP'). ^ 

1139 * * 

1140 * NOTE= THE 'STOP' FUNCTION IS DIRECTLY PERFORMED BY A MANUAL OPER- ^ 

1141 * ATION ON THE CONTROL PANEL (SEE ALSO 'KEYBIT' BYTE UNDER * 

1142 * CONSOLE SIMULATION.) * 

1143 ^ ^ 

1144 ^OUTPUT OPERATION CODE + P-ADDRESS, IN PACKED DECIMAL FORMAT, ^ 

1145 ^ IN 'BUFFP' * 

1146 * * 



0007F6 


4155 


OOOC 




OOOOC 


1149 


ENTRYl 


LA 


CNTR,12(CNTR) 


INCREMENT INSTR. COUNTER BY 12 












1150 


^ENTRY2 


TH 


KEYBIT,X'01' 


TEST IF 'DUMP' BIT(DELETED) V1L2 












1151 




B2 


^+8 


N0,BY-PASS2 INST (DELETED) V1L2 












1152 




BAL 


15,DUHP1 


YES, PRINT DUMP OFF(DELETED) V1L2 


0007FA 


9160 


0000 


00000 




1153 


ENTRY2 


TH 


KEYBIT,X'80' 


TEST IF 'STOP' BIT V1L2 












1154 




TH 


KEYBIT,X'80' 


TEST IF 'STOP' BIKDELETED V1L2 


0007FE 4780 


0806 




00806 


1155 




82 


^+8 


NO, BY-PASS 2 INSTRUCTIONS 


000802 


9200 


0819 


00519 




1156 




HVI 


5TART+1,X'00' 


YES, STOP SIMULATION 


00030G 


F276 


09D3 5000 


009D8 


00000 


1157 


RESTAR 


PACK 


BUFFP(8),0(7,CNTR) 


PACK OPER. CODE + P-ADDRESS 


00080C 


1810 








1156 




LR 


R1,0 


CLEAR REGISTER Rl 


00080E 


4310 


09DC 




0C9DC 


1159 




IC 


Rl,BUFFP+4 


INSERT OPERATION CODE AND FORM 


000812 


lAll 








1160 




AR 


R1,R1 


A HALFWORD ADDRESS 


000814 


4611 


0A08 




00A08 


1161 




LH 


R1,0PTBL(R1) 


GET ADDRESS OF CORRESP. ROUTINE 


000818 


47F0 


1000 




00000 


1162 


START 


B 


0(0, Rl) 


BRANCH TO CORREPONDING ROUTINE 


00081C 


9201 


0900 


00900 




1163 




HVI 


SW,X'01' 


V1L2 



A25B 1620 SIMULATOR 
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LOC OBJECT CODE ADDRi ADDR2 STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

1167* SIMULATION OF KEYS * 

1168 * * 

1169 * KEY SIMULATION IS PERFORMED BY MEANS OF A LOOP CONSISTING OF SEV- * 

1170 * ERAL SEQUENCES NHICH ARE CONTINUOUSLY SCANNED AS SOON AS SIMULA- * 

1171 * TION STOPS. EACH OF THESE SEQUENCES GIVES CONTROL TO THE FOLLOW- * 

1172 * ING ONE WHETHER OR NOT ITS FUNCTION HAS BEEN FULFILLED. THE LAST * 

1173 * SEQUENCE ('START KEY') RETURNS CONTROL EITHER TO THE FIRST SE- * 

1174 * QUENCE ('SAVE KEY') OR TO 'BIR'. * 

1175 * * 
1176 



1178 ****^*«^***«*^6^**^*3^*^^9^$^9e*^*5t9^%**^^«^5^**^9f^9t9f9t9e^t5t**565t*«^t5e9t9f^9f^t9t*^9e 

1179 * SAVE KEY * 

1180 * ^ 

1181 * THE SAVE FUNCTION IS ONLY OPERATIVE WHEN THE 'STOP'BIT IS PRESENT * 
1162 * IN THE 'KEYBIT' BYTE. IN THIS CASE, THE INSTRUCTION COUNTER RE- * 

1183 * GISTER 'CNTR» IS STORED IN FIELD 'PRl', THE SEQUENCE TURNS ON * 

1184 * A SWITCH WHICH SIMULATES THE 'BRANCH BACK-42' INSTRUCTION. THIS * 

1185 * ALLOWS NORMAL OPERATION OF THE SEQUENCE. CONTROL IS THEN GIVEN TO * 

1186 * THE FOLLOWING SEQUENCE. ^ 

1187 * * 
1166 ***^^^*>f^^***^^^^*«*^^**>e^^t^**9^^^^**^****^^******^***^**^^**^******^*if***** 













1190 


DISKV 


DISKS RESIDENT 


ON DISK PACK 












1191 


^KSAVE 


TM 


KEYBIT,X'40' 


TEST IF SAVE BIT 












1192 




END 
















1193 


NISKV 




NO DISKV VERSION 












1194 


^KSAVE 


SR 


0,0 


DECREMENT BASE REGISTER 


000820 


9200 


0329 


00829 




1195 




MVI 


KSAVE+l,X'O0' 


SET KSAVE + 1 = X'OO' 


000824 


9140 


0000 


00000 




1196 
1197 




TM 
END 


KEYBIT,X'40' 


TEST IF SAVE BIT 












1198 


NODSK 




COMMON PART OF SIM20 












1199 


^KSAVE 


TM 


KEYBIT,X'40' 


TEST IF SAVE BIT 












1200 




END 
















1201 


NASKV 






000823 


9140 


0000 


doooo 




1202 
1203 


KSAVE 


TM 
END 


KEYBIT,X'40' 


TEST IF SAVE BIT IS PRESENT 


00082C 


4780 


063C 




0083C 


1204 




BZ 


KCHECK 


NO, GO TO NEXT SEQUENCE 


000830 


5050 


08FC 




008FC 


1205 




ST 


CNTR,PR1 


YES, STORE COUNTER IN PR-1 


000834 


92F0 


3109 


01109 




1206 




MVI 


BB42+1,X'F0' 
KEYBIT,X'BF' 


SET SWITCH FOR BB42 = ON 


000838 94BF 


0000 


boooo 




1207 




NI 


CLEAR 'SAVE' BIT 



1209 ^^^)^^^^**^*^**^^^^^^****^*^^^^^***^******^*******^**^**^^***^********** 

1210 * * 

1211 * CHECK RESET KEY * 

1212 * * 

1213 * THE CHECK FUNCTION IS ONLY OPERATIVE WHEN A 'CHECK'BIT IS PRESENT * 

1214 * IN THE 'KEYBIT' BYTE. IN THIS CASE, CONTROL IS GIVEN TO THAT PART * 

1215 * OF THE 'RESET' SEQUENCE WHICH RESETS ONLY THE DISK CHECK AND I/O * 



A2SB 



1620 SIHULATOR 
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LOC OBJECT CODE 



ADDRl ADDR2 STHT SOURCE STATEHENT 



ASM H V 05 22.10 05/07/81 



1216 ^ CHECK INDICATORS • CONTROL IS THEN GIVEN TO THE NEXT SEQUENCE. * 

1217 ^ ^ 
1213 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^j^^^^^^^^^^^^^^^^^^^^^x^^^^^^^^^^Kx^ 



OOOeSC 9120 0000 00000 
OOOBAO 4780 084C 
00084^ 9^DF 0^00 00000 
000648 47F0 0864 



0064C 1221 
1222 
00864 1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 



1220 KCHECK TM KEYBIT,X'20'' TEST IF 'CHECK RESET' BIT 

BZ KRESET NO, GO TO NEXT SEQUENCE 

HI KEYBITyX'DF* YES, CLEAR THECK RESET' BIT AND 

8 KRESIO GO TO 'RESET I/O INDICATORS' 



RESET KEY 

THE RESET FUNCTION IS ONLY OPERATIVE WHEN A 'STOP' BIT IS FOUND 
IN THE 'KEYBIT' BYTE. IN THIS CASE, A POSSIBLE 'MODIFY' BIT IS 
CLEARED FROM THE 'KEYBIT' BYTE, THE INSTRUCTION COUNTER REGISTER 
'CNTR' IS SET TO THE MAP ORIGIN ADDRESS AND ALL INDICATORS ARE 
CLEARED. CONTROL IS THEN GIVEN TO THE NEXT SEQUENCE. 



9f 



00084C 9110 


0000 


00000 




1236 


KRESET 


TM 


KEYBIT >X' 10' 


TEST IF 'RESET' BIT 


000850 4780 


0370 




00870 


1237 




BZ 


KINSER 


NO, GO TO NEXT SEQUENCE 


000854 94EF 


0000 


00000 




1236 




NI 


KEYBIT,X'EF' 


YES, CLEAR RESET BIT 


000858 9200 


0005 


00005 




1239 




MVI 


LASTCD,X'00' 


RESET ALL INDICATORS 


0CC85C 9200 


0003 


00003 




1240 




MVI 


HPEZ,X'00' 




000560 9200 


0004 


00004 




1241 




HVI 


OFLON,X'00' 




000864 9420 


0002 


00002 




1242 


KRESIO 


NI 


NYCHEK,X'20' 












1243 




MVI 


IXBAND,X'04' 


RESET TO 'NOBAND' (DELETED) 


000868 9200 


0007 


00007 




1244 




MVI 


TAPE43,X'00' 




00086C 47F0 


064C 




0084C 


1245 




B 


KRESET 


RETURN TO RESET 



V1L2 
V1L2 



1248 

1249 * * 

1250 ^ INSERT KEY * 

1251 * * 

1252 * THIS FUNCTION IS ONLY OPERATIVE WHEN THE 'INSERT' BIT IS PRE- * 

1253 * SENT IN THE 'KEYBIT' BYTE. THE INSTRUCTION COUNTER 'CNTR', AND * 

1254 » THE P ADDRESS REGISTER 'RP' ARE SET TO THE MAP ORIGIN ADDRESS AND * 

1255 ^ CONTROL IS GIVEN TO THE SEQUENCE SIMULATING THE'READ NUMERICALLY' * 

1256 * (TYPEWRITER) INSTRUCTION. * 

1257 ^ * 

1258 ^ AT THE END OF THIS SEQUENCE, THE INSERT BIT IS TESTED. IF 'ON', * 

1259 * THE 'READ NUMERICALLY' ( TYPEWRITER ) INSTRUCTION WAS CALLED BY * 

1260 ^ THE INSERT FUNCTION AND NOT BY THE 'RNTY-36' INSTRUCTION. ^ 

1261 * THUS, CONTROL IS RETURNED TO THE FOLLOWING KEY SIMULATION SE- ^ 

1262 ^ QUENCE. * 

1263 * ^ 
1264 



000870 9108 0000 



00000 



1266 KINSER TM KEYBIT, X' 08' 



TEST IF 'INSERT' BIT 



A2SB 1620 SIMULATOR 



LOC OBJECT CODE 

000874 4780 0630 
00087B 1856 
00087A 1886 
00087C 47F0 01F4 



ADDRl ADDR2 STHT 

00880 1267 
1268 
1269 

001F4 1270 



SOURCE STATEHENT 

82 KAUTO 

LR CHTR,HAP0R6 

LR RP.HAPORG 
B RNTY 
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NO, GO TO NEXT SEQUENCE 

YES, RESET INSTRUCTION COUNTER 

RESET P-ADDRESS REGISTER 

GO TO 'READ NUMERIC. TYPEWRITER' 



A2SB 1620 SIHULATOR 

LOC OBJECT CODE ADDRl ADDR2 
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STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 



1272 

1273 ^ * 

1274 * AUTOHATIC CARD LOADING KEY * 

1275 ^ * 

1276 ^ THIS FUNCTION IS ONLY OPERATIVE WHEN THE 'STOP' BIT IS PRESENT IN ^ 

1277 * THE 'KEYBIT' BYTE. THE INSTRUCTION COUNTER 'CNTR' IS SET TO THE * 
127B ^ VALUE OF HAP ORIGIN MINUS 12, AND THE P-ADDRESS REGISTER 'RP' IS ^ 
1279 * SET TO THE VALUE OF MAP ORIGIN. ALL BITS IN THE 'KEYBIT' BYTE ARE * 

1260 ^ CLEARED AND THE 'BIR' SWITCH IS TURNED ON TO RESUME SIMULATION. * 

1261 ^ FINALLY, CONTROL IS GIVEN TO THE SEQUENCE SIMULATING THE 'READ * 

1282 * NUMERICALLY' (CARD) INSTRUCTION. * 

1283 * * 
1254 * AT THE END OF THIS SEQUENCE, THE AUTO-LOAD BIT IS TESTED.IF 'ON', ^ 
1285 * THE 'READ NUMERICALLY' (CARD) INSTRUCTION WAS CALLED BY THE AUTO ^ 
1266 ^ LOAD FUNCTION AND NOT BY THE 'RNCD-36' INSTRUCTION. * 

1287 ^ CONTROL IS THUS RETURNED TO THE FOLLOWING KEY SIMULATION SEQUEN- * 

1288 CE. * 

1289 * * 

1290 *^^9e***^«^e**9*«^^t*^^^**9^^^^«^***5He^e*^t*^e9e««9^«9^^^e*9(9e%^^***jt^t^9t^^t$e^ 



000830 9102 


0000 


00000 




1292 KAUTO 


TM 


KEYBIT, X' 02!' 


TEST IF 'AUTOMATIC LOAD' BIT 


000884 4780 


0S9E 




0089E 


1293 


B2 


KSTART 


NO, 60 TO NEXT SEQUENCE 


000880 9401 


0000 


00000 




1294 


NI 


KEYBIT,X'D1' 


YES, CLEAR ALL BITS EXCEPT DUMP 


00088C 4150 


OOOC 




OOOOC 


1295 


LA 


CNTR,12 


LOAD INSTRUCTION COUNTER WITH 


000890 1155 








1296 


LNR 


CNTR,CNTR 


MAPORG-12 


000892 1A56 








1297 


AR 


CNTR,MAPORG 




000894 1636 








1298 


LR 


RP,MAPORG 


SET P-ADDRESS = MAP ORIGIN 


000696 92F0 


D919 


00819 




1299 


HVI 


START+1,X'F0' 


RESTART SIMULATION 


00089A 47F0 


5272 




00272 


1300 


B 


RNCD 


GO TO READ A CARD 



1303 

1304 * * 

1305 * START KEY * 
1306* * 
1307 * THE START FUNCTION IS ONLY OPERATIVE WHEN THE 'STOP' BIT HAS BEEN * 
1303 * SET ON IH THE 'KEYBIT' BYTE. THE START FUNCTION ALSO INTERROGATES * 

1309 * THE 'MODIFY' BIT IN THE SAME BYTE. IF THIS BIT IS ON, CLEARING OF * 

1310 * THE 1620 CORE STORAGE WAS PREVIOUSLY REQUESTED AND A SEQUENCE PER- * 

1311 * FORMS THE CLEARING IN GROUPS OF 250 BYTES UNTIL THE UPPER BOUNDARY * 

1312 * HAS BEEN REACHED. IF THIS BIT IS OFF, ALL BITS IN THE 'KEYBIT' * 

1313 * BYTE ARE CLEARED. TO RESUME SIMULATION, THE 'BIR' SWITCH HAS TO * 

1314 * BE TURNED ON SO THAT CONTROL CAN BE RETURNED TO 'BIR'. * 

1315 * ^ 
1316 



00089E 9104 0000 00000 
0008A2 4780 0806 008D6 

0008A6 94FB 0000 00000 

0008AA 92F0 6000 00000 

COOSAE D2F8 6001 6000 00001 00000 



1318 KSTART 

1319 

1320 

1321 

1322 



TM 

BZ 

NI 

MVI 

MVC 



KEYBIT,X'04' TEST IF 'MODIFY' BIT 

KSTARl NO, GO TO NEXT SEQUENCE 

KEYBIT, X'FB' YES, CLEAR 'MODIFY' BIT 

0(MAPORG),X'F0' CLEAR FIRST BYTE OF MEMORY HAP 

1(249, MAPORG),0(MAPORG) CLEAR FIRST GROUP OF 250 BYTES 



A2SB 1620 SIMULATOR 



LOC OBJECT CODE 



ADDRl ADDR2 STHT SOURCE STATEMENT 



0008B4 18A6 
OOOSB^ 41BA QOFA 

0006BA D2F9 AOFA AOOO OOOFA 00000 
OOGSCa 4138 C0FA 
0006C4 41AA OCFA 
0006C8 19B7 
0006CA 0000 0000 

lEVG^^ ^^^^ ERROR 

IEV029 ^->^ ERROR 
0006CE 96eE 3408 014D8 
0008D2 %60 0000 00000 



1323 LR 

OOOFA 1324 LA 

1325 KCLEAR HVC 

OOOFA 1326 LA 

OOOFA 1327 LA 

1328 CR 

00000 1329 BC 
UNDEFINED SYMBOL 

INCORRECT REGISTER OR MASK 



1330 
1331 



LM 
01 



WR1,MAP0RG 

WR2,250(WR1) 

250(250,NR1),0(WR1) 

WR2,250(NR2) 

^IR1,250(14R1) 

WR2,SI2E 

BNH, KCLEAR 

SPECIFICATION 
I^R2,14R5,MCLEAR 
KEYBIT,X'80» 



0008D6 


9101 


0900 


00900 




1333 


KSTARl 


TH 


SW,X'01' 


0008DA 


4710 


D3EA 




008EA 


1334 




BO 


KSTAR2 












1335 


*KSTAR1 


TM 


KEYBIT,X''80'' 












1336 




BO 


KSAVE 


0008DE 


9401 


0000 


00000 




1337 




NI 


KEYBIT,X'01' 


0005E2 


92F0 


0S19 


00819 




1333 




MVI 


START+1,X'F0» 


00C8E6 


47F0 


0896 




00806 


1339 




B 


RESTAR 


00C8EA 


9160 


OOOQ 


00000 




1340 


KSTAR2 


TM 


KEYBIT,X»80'' 


0006EE 


4710 


081C 




0081G 


1341 




BO 


START4-4 


0008F2 


9200 


09C0 


00900 




1342 




MVI 


5W,X'00' 


OOOOFfe 


47F0 


0828 




00828 


1343 




B 


KSAVE 



0005FA 0000 
OOOSFC 00000000 



1345 PRl 



DC 



F'O' 
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LOAD POINTER FOR CORE STORAGE 

LOAD POINTER FOR UPPER BOUND 

CLEAR FOLLCUING 250 BYTE GROUP 

INCREMENT POINTER 

INCREMENT POINTER 

IS IT HIGHER THAN UPPER BOUNDARY 

NO, LOOP 



YES, RESTORE 'STOP' BIT 



V1L2 
V1L2 

TEST IF 'STOP' BIT(DELETED) V1L2 
YES, LOOP (DELETED) V1L2 

NO, CLEAR ALL BITS EXCEPT 'DUMP' 
AND RESTART SIMULATION. 
GO TO 'BIR' 

V1L2 
V1L2 
V1L2 
V1L2 



PR-1 REGISTER 



A258 



1620 5IHULAT0R 



PAGE ^0 



LOC OBJECT CODE 
000900 00 



ADDRl ADDR2 STHT SOURCE STATEHENT 



1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
135G 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 



DC 



X»00' 



ASH H V 05 22.10 05/07/61 
V1L2 



ADDRESS CONVERSION 



ADDRESS CONVERSION HAS BEEN SEPARATED FROM 'BIRS SINCE NOT ALL 
1620 INSTRUCTIONS NEED BOTH THE P ADDRESS AND THE Q ADDRESS. 

THERE MAY BE THREE DIFFERENT ADDRESS CONVERSION ROUTINES = 

- THE STANDARD ADDRESS ROUTINE 

- THE INDIRECT ADDRESSING SUBROUTINE CINDAD') 

- THE ADDRESS INDEXING SUBROUTINE ('INDEX') FOR KODEL 2 ONLY 

ENTRIES 

'CONVPS 'COHVPQ' AND 'CONVQ' FOR P ADDRESS CONVERSION ONLY, P+Q 
ADDRESS CONVERSION, OR Q ADDRESS CONVERSION ONLY. 

EXITS 

ALL ADDRESS CONVERSION ROUTINES RETURN TO THE SEQUENCE WHICH RE- 
QUIRED ADDRESS CONVERSION. 

EACH ROUTINE HAS THO ADDITIONAL EXITS FOR INVALID ADDRESSES. 



9^ 



OUTPUT REGISTER RP CONTAINS THE ABSOLUTE P ADDRESS IN BINARY * 

FORHAT 

REGISTER RQ CONTAINS THE ABSOLUTE Q ADDRESS IN BINARY 
FORHAT 



000901 00 

000902 940F 091D 0091D 



1378 AIF (NOT S.INDEX).N0TIX1 

1379 CONVPQ NI RET+l^X'OF' 



INDEX INSTRUCTIONS 
SET SNITCH ON 



000906 


9200 


09DC 


009DC 




1381 


CONVP 


HVI 


BUFFP4'4,X'00' 


CLEAR OPERATION CODE 


00390A 


960F 


09DF 


009DF 




1382 




01 


8UFFP"f7,X'0F» 


SET PLUS SIGN 


00a90E 


4FD0 


0908 




009D8 


1383 




CVB 


WR4,BUFFP 


CONVERT P ADDRESS TO BINARY 


G00912 


4iA5 


0002 




00002 


1384 




LA 


WR1>2(CNTR) 


WRl=CNTR+2 


000916 


45E0 095C 




D095£ 


1385 




BAL 


14, INDEX 


GO TO 'INDEX' SUBROUTINE 


00091A 


136D 








1386 




LR 


RP,14R4 


RP=NR4 


0G09iC 


07FF 








1387 


RET 


BR 


15 


RETURN IF SMITCH OFF 


00091E 


F274 


C9E0 5007 


009E0 


00007 


1388 


CONVQ 


PACK 


BUFFQ(8),7(5,CNTR) 


PACK Q ADDRESS IN BUFFQ 


000924 


960F 


09E7 


dd9E7 




1389 




01 


BUFFQ+7,X'0F' 


SET PLUS SIGN 


000928 


4FD0 


09E0 




009E0 


1390 




CV8 


NR4,BUFFQ 


CONVERT Q ADDRESS TO BINARY 


00092C 


41A5 


0007 




00007 


1391 




LA 


NR1,7(CNTR) 


NRl=CNTR+7 


000930 


45E0 


095C 




0095C 


1392 




BAL 


14, INDEX 


GO TO 'INDEX' SUBROUTINE 


000934 


1890 








1393 




LR 


RQ,WR4 


RQ=NR4 


000936 


96F0 


091D 


0091D 




1394 




01 


RET4-1,X'F0' 


SET SNITCH OFF 


00093A 


07FF 








1395 




BR 


15 


RETURN TO CALLER 



A2S8 



1620 SIHULATOR 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/61 



00G93C 


G70E 








1397 INDAD 


BCR 


0,14 


INDIRECT ADDRESSING SWITCH 


00093E 


9120 


A004 


00004 




1398 


TM 


4(WR1),X»20' 


TEST FLAG 


0009^2 


071E 








1399 


BCR 


1,14 


IF NONE, BRANCH 


0009^1^ 


16AD 








1400 


LR 


WR1,NR4 


NR1=WR4 


0009^6 


4BA0 


09D0 




00900 


1401 


SH 


yRl,DEC4 


yRl=NRl~4 


00094A 


F274 


09E0 Aooa 


009E0 


00000 


1402 


PACK 


BUFFQ(8),0(5,WR1) 


PACK NEW ADDRESS 


000950 


960F 


09E7 


00fE7 




1403 


01 


BUFFQ+7,X»0F'. 


SET PLUS SIGN 


000954 


4FD0 


09E0 




009E0 


1404 


CVB 


WR4,BUFFQ 


CONVERT TO BINARY 


000958 


47F0 


C95C 




0095C 


1405 


8 


INDEX 


GO TO INDEX 



1406 

1407 * * 

1406 ^ INDEX SUBROUTINE * 

1409 ^ ^ * 

1410 * THIS SUBROUTINE H0DIFIE5 THE P AND Q ADDRESSES IF ANY FLAGS ARE * 

1411 « PRESENT IN THE THOUSANDS, HUNDREDS OR TENS POSITION OF THE AD- * 

1412 ^ DRESS FIELD OF THE INSTRUCTION, IT COHPUTES THE INDEX REGISTER ^ 

1413 * ADDRESS, ACCORDING TO THE BAND SELECTED, IT THEN ADDS THIS AD- * 

1414 * DRESS TO THE ADDRESS SUBMITTED TO THE ROUTINE. IF THE RESULTING * 



1415 * ADDRESS IS NEGATIVE, NINES COHPLEMENTING TAKES PLACE. * 

1416 * * 

1417 ^ AT THE END OF INDEXING, CONTROL IS GIVEN TO THE "INDAD' SEQUENCE. ^ 

1418 * THE FINAL ADDRESSES ARE CONTAINED IN REGISTERS RP AND RQ. * 

1419 ^ ^ 

1420 * NOTE = * 

1421 ^ WHEN AN ADDRESS CONTAINS BOTH THE INDEXING AND INDIRECT ADDRESS- * 

1422 * ING FEATURE, PRIORITY IS GIVEN TO THE INDEX SUBROUTINE. * 

1423 * ^ 



00095C 


9104 


0006 


00006 




1426 


INDEX 


TM 


rXBAND,X'04» 


IS 'NO BAND' INDICATOR ON 


000960 


4710 


09C2 




009C2 


1427 




BC 


1,INDX5 


YES, BRANCH 


000964 


1680 








1428 




LR 


WR2,0 


CLEAR WR2 


000966 


9120 


A003 




1429 




TM 


3(WR1),X'20' 


IS 3(WR1) DIGIT FLAGGED 


00096A 


4770 


0972 




00972 


1430 




BC 


7, INDXl 


NO, BRANCH 


00096E 


41BB 


0005 




00005 


1431 




LA 


WR2,5(WR2) 


YES, ADD 5 TO WR2 


000972 


9120 


A002 


0G002 




1432 


INDXl 


TH 


2(WR1),X'20' 


IS 2(WR1) DIGIT FLAGGED 


000976 


4770 


097E 




0097E 


1433 




BC 


7,INDX2 


NO, BRANCH 


00097A 


41BB 


OOOA 




OOOOA 


1434 




LA 


WR2,10(WR2) 


YES, ADD 10 TO WR2 


00097E 


9120 


ACOl 


6d5oi 




1435 


INDX2 


TM 


i(WRl),X'20* 


IS KWRl) DIGIT FLAGGED 


000982 


4770 


098A 




0098A 


1436 




BC 


7,INDX3 


NO, BRANCH 


000936 


41B8 


0014 




00014 


1437 




LA 


WR2,20(WR2) 


YES, ADD 20 TO WR2 


00098A 


12BB 








1438 


INDX3 


LTR 


WR2,WR2 


IS WR2 NULL 


00098C 


4780 


09C2 




009C2 


1439 




BC 


8,INDX5 


YES, BRANCH 


000990 


9102 


0006 


00906 




14^0 




TM 


IXBAND,X'02» 


NO, IS 'BAND 1' INDICATOR ON 


000994 


4730 


099C 




0099C 


1441 




BC 


3,INDX4 


YES, BRANCH 


000998 


41BB 


0028 




00028 


1442 




LA 


WR2,40(WR2) 


NO, ADD 40 TO WR2 


00099C 


41B6 


B12C 




6012C 


1443 


INDX4 


LA 


WR2,300(MAPORG,WR2) 


COMPUTE INDEX REGISTER ADDRESS 


0009A0 


070E 








1444 




BCR 


0,14 


RETURN SWITCH FOR IX INSTRUC. 


0009A2 


F274 


09E0 BOOi 


0O9EO 


00000 


1445 




PACK 


BUFFQ(6),0(5,WR2) 


PACK ADDRESS 


0G09A3 


4FC0 


09E0 




009E0 


1446 




CVB 


WR3,BUFFQ 


CONVERT TO BINARY 


0009AC 


lADC 








1447 




AR 


NR4,WR3 


COMPUTE NEW ADDRESS 


0009AE 


47A0 


09B6 




009B6 


1448 




BC 


10,INDX6 


BRANCH IF POSITIVE OR EQUAL 


0009B2 


5AD0 


09CC 




009CG 


1449 




A 


WR4,HAXVAL 


COMPUTE 9'S COMPLEMENT 


000936 


59D0 


09CC 




009CG 


1450 


INDX6 


C 


WR4,MAXVAL 


TEST OVERFLOW ON RESULTING ADD 



A2Se 1620 SIMULATOR 



LOC OBJECT CODE ADORl ADDR2 

0009BA ^740 09C2 009C2 

00098E 5BD0 09CC 009CC 

0009C2 G9FG 009F0 

0009C6 ^7F0 093C 0093C 

0009CA 07FE 



STMT SOURCE STATEMENT 

1451 BC 4,INDX5 

1452 5 WR4,HAXyAL 

1453 INDX5 BXH NR4,HAP0RG,ERR0RP 

1454 IHDX8 B INDAD 

1455 ^ B INDAD 

1456 BR 14 
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NO, BRANCH 

YES, CLEAR OVERFLOW 

ADD BASE AND CHECK 

GO TO INDAD SUBROUTINE V1L2 

60 TO INDAD SUBROUC DELETED) V1L2 

RETURN TO CALLER V1L2 



A25B 1620 SIHULATOR 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22*10 05/07/81 

1458 .NOTIXl ANOP 

1459 AIF (NOT MNDAD).N0TIND1 INDIR ADDRESSING 
14^.0 .NOTINDl ANOP 

1461 

1462 .NHODl 



AIF (&MODEL NE D^NMODl MODEL 1 

ANOP 



0009CC 000i86A0 
0009D0 0004 



007F6 



1464 ENTRYO 

1465 MAXVAL 

1466 DEC4 



EQU ENTRYl 
DC F'lOOOOO' 
DC H'4* 



MAXIMUM VALUE FOR 9»S COMPLEMENT 
DECIMAL 4 



1469 

1470 ^ * 

1471 ^ PARAMETERS USED IN ADDRESS CONVERSION ROUTINES * 

1472 * ^ 
1473 



0009D8 


1475 


BUFFP 


DS 


ID 


FOR P-ADDRESS PACKING 


0009EO 


1476 


BUFFQ 


OS 


ID 


FOR Q~ADDRESS PACKING 


0009E8 


1477 


INITP 


DS 


IF 


FOR STORING INITIAL P-ADDRESS 


0009EC 


1476 


INITQ 


DS 


IF 


FOR STORING INITIAL Q-ADDRESS 



A2SB 



1620 SIMULATOR 



PAGE 



LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



1460 
1481 
1462 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 



ERROR ROUTINES 

THESE ROUTINES ARE ENTERED FROM THE SPECIAL EXITS OF THE 
CONVERSION ROUTINES IN THE FOLLOWING CASES = 



ADDRESS 



1, 



2. 



THE CONVERSION ADDRESS IS GREATER THAN THE 
STORAGE SIZE SPECIFIED FOR THE SIMULATOR. 



ALPHABETIC OR SPECIAL CHARACTERS ARE ENCOUNTERED IN 'BUFFP' 
OR 'BUFFQ' AT THE TIME OF BINARY CONVERSION. AN INTERRUPTION 
IS THEN REQUESTED BY THE CONTROL PROGRAM WHICH GIVES CONTROL 
TO THE ERROR ROUTINE. THIS SENDS A MESSAGE TO THE 1052 PRINT- 
ER-KEYBOARD (»INVP' OR 'INVQ') AND SIMULATION STOPS UNTIL 
OPERATOR ACTION (SEE 'BIR' AND SIMULATION OF KEYS), 



AVAILABLE CORE * 



SPACE 2 
CNOP 2>4 



(DELETED) V1L2 
(DELETED) V1L2 



00G9F0 45F0 0CF4 000F4 
0009F4 0000019D 

0C09F6 45F0 00F4 000F4 

00C9FC 0000019D 

OGOAOO 

OOOAOO 45F0 00F4 000F4 
0Q0A04 0000019D 



1501 


ERRORP 


BAL 


15,MEST0P 


1502 




DC 


A(INVP) 


1503 


ERRORQ 


BAL 


15,HEST0P 


1504 




DC 


A(INVQ) 


1505 


CODERR 


DS 


OH 


1506 




BAL 


15,MEST0P 


1507 




DC 


A(INVCOD) 



ERROR ON P ADDRESS A 
ERROR ON Q ADDRESS A 

ERROR ON OPERATION CODE 



A258 



1620 SIMULATOR 
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LOG OBJECT CODE ADORi ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

1510 ^ * 
1511* OPERATION CODE TABLE * 

1512 * * 

1513 * THIS IS A 15^ HALPyORD TABLE WHICH CONTAINS THE RELATIVE AD- * 
151^ * 5E5 IN DISPLACEMENT FORMAT OF THE SIMULATION ROUTINES, EACH HALF- * 

1515 * WORD REFERS TO THE STARTING ADDRESS OF THE ROUTINE WHICH SIMU- * 

1516 * LATES THE EXECUTION OF THE 1620 INSTRUCTION INDICATED BY THE OP- * 



1517 * ERATION CODE. ^ 

1516 * SOME 1620 OPERATION CODES ARE NOT RELATED TO ANY EXISTING IN- ^ 

1519 * STRUCTION, THEY CONTAIN THE ADDRESS OF THE ERROR ROUTINE. * 

1520 * * 



1521 ^^**X*^«**^^^«***«^*«****«**5*^********i«*******«***^^**^t^*«^^***5f^^**^******* 



uOOAOq 


A A AAA A A A 


1 coo /M3TD! 

1523 UPTSL 


PC 


A / fTi n c o o \ 
H( LUPtKK ) 


NUT 


1 icirn 
UbcD 


UUOAUL 


AAAA1AAO 

UOOOlAAo 


15^4 


DL 


ACrADDOl ; 






uUUhiu 


UUUUlboU 




PL 


ftlr dUdU^ ; 






A 1 /I 


<VA A A f "7/8- 

UuuOl/bh 




UL 


A / r-ui n AtJ \ 






UUUHiD 


A A A ir^ fi 




PL 


HlLUUtKK; 


tVJ 1 


ncrn 


UUuHiL 






UL 


A rrci he; 
Bi,rDLUD } 












UL 


FiK 1 rLUo ) 










1 c: Q n 


PL 










UUUUi/OH 




UL 


n V r DKUu } 








AAA Af 75 A A 




nr 

UL 










UUUUUnUU 




UL 


H k LUUELKK J 


riU 1 


U3LU 


ft ft HA '^^i 


AAftAAVfSn 


1-3 J4 


UL 


ArrnnPDDii 
fi V.LUULKK / 


riU 1 


ncc'n 

UDuU 


UUUH JO 


U U 0 U Un U U 




nr 

UL 


ri k LUUCKK J 


WOT 


UouU 


Ann A 


UUUuUiiUOi 


ID JO 


nr 

PL 


Af rnnPDD 

nlLUUilKK ) 


wnT 
riU I 


UoLU 


A AAA Aft 


u u u y Un u u 


10 or 


nr 

UL 


Af rAnppD 'i 

HV. LUUCKK ) 


WAT 
nU 1 


U3uU 


V V Uk ITT 


w U u U Kic% u u 




UK* 




NOT 




000A46 


00001C78 


1539 


DC 


A(BTAMIO) 






OOCA'^C 


OOOOliCA 


15^0 


DC 


A(AMll) 






000A50 


OOOOllEC 


1541 


DC 


A(SH12) 






000r^54 


OOG013B6 


1542 


DC 


A(HM13) 






0Q0A53 


00OOCE6O 


1543 


DC 


A(CM14) 






000A5C 


00000C70 


1544 


DC 


A(TDM15) 






000A60 


oooooceA 


1545 


DC 


A(TFM16) 






000A64 


COOOiOFC 


1546 


DC 


A(BTM17) 






000A68 


00001762 


1547 


DC 


A(LDMIB) 






000A6C 


0000171A 


1548 


DC 


A(DM19) 






00aA70 


OOOOOAOO 


1549 


DC 


A(CODERR) 


NOT 


USED 


000A74 


OOOOOADO 


1550 


DC 


A(CODERR) 


NOT 


USED 


00CA7e 


OOOOOAOO 


1551 


DC 


A(CODERR) 


NOT 


USED 


000A7C 


OOOOOAOO 


1552 


DC 


A(CODERR) 


NOT 


USED 


G00A6G 


OOOOOAOO 


1553 


DC 


A(CODERR) 


NOT 


USED 


000A84 


OOOOOAOO 


1554 


DC 


A(CODERR) 


NOT 


USED 


000A68 


OOOOICIO 


1555 


DC 


A(BTA20) 






OOOABC 


00001136 


1556 


DC 


A(A21) 






000A90 


00001106 


1557 


DC 


A(S22) 






000A94 


00C013A6 


1558 


DC 


A(M23) 






0C0A98 


00000DC2 


1559 


DC 


A(C24) 






000A9C 


00000C7C 


1560 


DC 


A(TD25) 






OOOAAO 


00000C96 


1561 


DC 


A(TF26) 






OOOAA^ 


OOOOIOCC 


1562 


DC 


A(BT27) 
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Art ft A AG 






hr 
UL 


An n9A 






AAAA17AA 

uuyui/yu 












UUUUUnUU 




nr 


n I LUUi_KK J 


MAT llCpn 


UUUhd4 


A ft A A A .^ A A 


1 KCL 


UL 


nv.LUUC.KK } 


KinT Mt^pn 




nnn AAA AA 

UUUuUnUU 




nr 

UL 


A f rnnrpp ^ 

n LUuCKK / 


riU 1 UouU 


UUUnQL 


A n A A AA n A 




nr 

UL 


Aj'rAnpppi 

n V LUUuKK / 


KjnT nt^pn 

INU 1 UDCU 


UUUHLU 


AAAAA^AA 


lDb7 


nr 

UL 


A f rnnrpj? 

nlLUUtKK ) 




n n A A r A 


AAAAAAAA 

UUUUUhUU 


1C7A 


nr 

UL 


A f rnnrDD ^ 


WAT ncpn 

NU i UDilU 


UUUhLO 


AAAAA/* AA 


i!3/i 


nr 

UL 


nK 1 KrinOU ) 




UUUBLt 


AAAAArr^A 




nr 

UL 






UUuhUu 


AAA A1 1 ^Cl 




nr 

UL 


A{ c;c"37 ^ 






AAAA11A6 




nr 
UL 


A (T rfr'3'? ^ 






AAAAA£l7A 

UuUUUo/U 




nr 
UL 






UuUhUL 


AAAAA^hA 




nr 
UL 


ftlUrioDJ 




UuUrstU 


AAAAA/P9 


m77 


nr 
UL 


HvKMOb ) 




ft ft f) AC A 
UUOnC.4 


A A A A A^' A/ 


1C7A 


nr 
UL 


A { DA '57 'i 




UUUhlo 


AAAAAi^^Qii 


1tt7Q 


nr 

UL 


A / UKI A 1 




UUUficL 


AAAAAi^rd 


1 CAA 
IjoU 


nr 

UL 


AfUAl.Q \ 




UUUnr U 


AAAAA&AA 
UUUUUHUU 




nr 

UL 


A f r^nppp 

n I LvJUilKK ) 


wni iiQPn 


UUUnir'T 


nfinAA*nA 

UUUUunUU 




nr 

UL 


nvLUUt-KK/ 


wnt iKPn 




AAA AAA A A 




nr 

UL 


A ( rnnFDP > 

n vLUUcKK } 


WAT ilQPn 




A A A f"* A A A A 




nr 
UL 


AfrnnrbDV 


WAT iicpn 


UuUdUU 


A A A A i" ! A A A 

UUUUUAUU 




nr 
UL 


HvLUUtKK/ 


WAT nccn 
fiU 1 UbcU 


fin AD HA 


AAAAA^AA 


1CA£ 


nr 
UL 


A f rAnroD ^ 


MAT II cm 
liul UbtU 


UuUduo 


AAAAAi^.AA 


Ibo/ 


nr 
Ul 


A<rAnrDD> 
nlLUUcKK ; 


WAT II cm 
NU i UbcU 


OuudOL 


A AA A1 -1 /«r' 

UUuOli^L 




nr 
UL 


A ft\r\nA 1 % 
RlNUr41-> 




ft n A o « ft 


A A A A 1 f A£l 

UuuUiiuo 




nr 
UL 


A / DD/iO ^ 




A A A D 1 Yi 


AA A AAtrt?"? 

UUUuUr Oil 


1 CO A 


nr 
UL 


fikDU40 ) 




A A AD f 13 


UUuUurt>fi 




nr 
Ul 






AAAD1 r 


uUUUUrbPf 


ICQ*? 


nr 
UL 






AA AO*? A 


ft fin A A 

U U U u U r / r K 


i tin's 


nr 

UL 


ft lDl4b / 






UvUliUi UU 


15 74 


nr 

UL 


HVDnii4/ J 




uuud/io 


AAAAiit;n 

u U U U 1, iD U 


ID 73 


nr 

UL 








UuUUUraL 


1 c:Qi^ 

XD70 


nr 

UL 


Af PAQ 




AAAD'SA 
UUUQOU 


AAAAA/»AA 


tCQ7 
137/ 


nr 

UL 


n vLUUCKK J 


WAT MQPn 




A ft A *\ (>A A A 


i3 70 


nr 

UL 


ri \ LUUCKK / 


wni iic;pn 

viKJ 1 UudU 


AAAp-atS 




iD 77 


nr 

UL 


Af rnnFPP 


fsini ii*^pn 






xbUU 


nr 

UL 


Af rnnppp 


Kini impn 

iWJ 1 UuuU 


AAAp/. A 


AAA Ah'^ fin 


IbUx 


nr 

UL 


Af rnnrpp ^ 


WAT IKPn 


AAApAA 


aaaaaaaa 
UUUULfnU<J 


IbUc 


nr 

UL 


Af rnnppp 1 


NAT llc^Pn 
liKJ 1 UouU 


UU JaSo 


U y U u UP* U U 


ioucs 


nr 

UL 


n kLUUcKK ) 


kjAT ncpn 


UUUy*lL 


AAAAAA AA 


ibUf 


nr 

UL 


A f rnnppp 


WAT l!<RPn 


nn AP«^ A 




ibUD 


nr 

UL 


A f rnnppp ^ 


WAT ii^^pn 

ti\J 1 UDHU 


AAAPCA 


A Aft A A*. AA 


ibuo 


nr 

UL 


AY rnnppp 


WAT M^pn 


AAARClfl 
UUUDjO 


AflAAAiiAn 
uUOUuncU 


ibu/ 


nr 

UL 


A f rnnppp 


WAT n^pn 


U U U D J U 


u J y y 1 u w 




nr 






000B60 


OOOOOAOO 


1609 


DC 


A(CODERR) 


NOT USED 


000B64 


OOOOGAOO 


1610 


DC 


A(CODERR) 


NOT USED 


000E68 


OOOOOAOO 


1611 


DC 


A(CODERR) 


NOT USED 


000B6C 


OOOOOAOO 


1612 


DC 


A(CODERR) 


NOT USED 


000B70 


OOOOOAOO 


1613 


DC 


A(CODERR) 


NOT USED 


000B74 


OOOOOAOO 


1614 


DC 


A(CODERR) 


NOT USED 


000876 


OOOOOAOO 


1615 


DC 


A(CODERR) 


NOT USED 


000B7C 


OOOOOAOO 


1616 


DC 


A(CODERR) 


NOT USED 


000B80 


OOOOOAOO 


1617 


DC 


A(CODERR) 


NOT USED 
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UUUuO't 


UUUU -Vri U U 


1<^1A 
iOlO 


nr 


nvLUUuKKJ 


MAT iiccn 


n HHP A A 


UUUUJLU/n 




nr 


n I DobU / 






U U U u X L. 5 V* 




nr 


n v uAOX / 




UUUU / U 


U V U u A un C 




nr 


A f DyH^v9> 
fi V DAnOi. } 






UUU UlUOO 


XOC.£. 


nr 


n V uLAbO / 






UUUUliJutL 




nr 


n V DLAnbt / 






nnnni f>F6 

UUUUiUJuT 




nr 


n V, uLAbD ^ 




UUUunU 


UUUUXLl^. 




nr 


H V DLAnbb / 






UUUUXLi.u 




nr 


AfDcy/7^ 
n V, D JAbf / 




UUUDnO 


J U 0 U Un U w 


XO&./ 


nr 


A f rnnFPt? 


k'HT II ^Fn 




UUUU U U 


1 ^i9A 


nr 


A f rnnrpp 
n K LUUHrCrs J 


nU 1 UDCLU 


U U U D b U 


U U U 0 Un U VI 


1 ^^9Q 


nr 


nkLvUtlKK / 


Ti\J \ UDuU 




OUuUwnUU 




nr 


nv.LUUCI\K } 


MAT ncpn 


UUUDDO 


U 0 u U Un U U 


XOOX 


nr 


A f fAfiPPP 
H V uuyc.r\ri > 


MAT iRFn 




UUUU UsK U U 




nr 


Af rnnFPP 


MAT ncpn 


nnriRrn 


UUUU <Jn U U 


XDOJ 


nr 


Af rnnppp'i 


PiU i U3uu 




UUUU Un u u 




nr 




WOT IKFn 


U U U u l*0 


U U U U i UO T 




nr 


Af MA7ni 




u uuuL.v-. 


UUUUiiOL. 


xooo 


nr 


nv.nr / X / 




rt^^p^^ 

UUUDUU 


UUUUUUUO 


XO*)f 


nr 


Af TMC79> 






UUUUUy/£. 


1 4 1 A 


nr 


Af TKJP7^ > 




UUUuUQ 


UUUuUriUU 


Xb-37 


nr 


A /rnnrpp 

nVLUUufsK } 


MAT ncpn 

NU 1 UDCU 




n rr n A n ft 

uUuUUrUu 


XDnU 


nr 


A^rAnPDD^ 
n^LUUcKK J 


WAT IIQPn 
riU 1 UoLU 




Uu uuUhUU 


xb4x 


nr 

UL 


A ( rAnrPD 
HlLUUcKK } 


MAT ncpn 
NU 1 Ubtu 




UuUuyHbU 


XbHyC 


nr 

UL 


&.{ Cf\T\^DD\ 
nKUJUcHti ) 


WAT ncpn 


UUUtit.0 


u u u u Ufi y u 


1 CCil. 


nr 

UL 


HkLUUt-KK ) 






A ft n A f> ft 
u U U u Urt u U 


ib4H 


nr 
UL 


AY TAnPDD 1 
HvLUUcKK / 


MAT IKPn 
NU 1 UotU 


UuUut U 


U U U U UH u U 




nr 
UL 


HlLUUtKK } 


MAT IJCPn 




UuUyUnUu 


Xb4o 


nr 

UL 


Af rAhPDD^ 


KIAT IIQPn 

r«U i UdcU 


n HHP PA 




XqH/ 


nr 

UL 




MAT ncrn 

r»U 1 U3CU 




UUUU ■'Jti u u 


XblO 


nr 

UL 




MAT IIQPn 




UUUU un u u 


XOt7 


nr 


Af rnnpppi 


MAT nqpn 




uuyuunuu 


xo;?u 


nr 


AfrnnFPP'i 


WHT ii^Fn 
r%\f i Uouu 




UUUUJnuU 


XD^X 


nr 


Af rnnppp i 


UCil n^Fn 




UUUUUiTiUU 




nr 

UL 


Afronpppi 


MAT IfCpn 


U V U C A v» 


UUUUU;iUU 


XOI>*) 


nr 

Ul# 


Af rnnppp 


MAT jicpn 


V U U U JL 3» 


UUUU Un U U 


XOV" 


nr 


A^rnnFPP \ 


NAT IKPn 


nnnn A 


UUUU U n ^* U 


1 A^c: 

XOjD 


nr 


Arrnnpppt 


MAT ncpn 




u u u u Un u u 


xojiq 


nr 


Af rnnpppi 




U U Uv^£.U 


uuu-junuu 


1 

XD-'/^ 


nr 


AfrnnFPP"i 


HOI impn 




UUUUUilUU 




nr 


Af rOHFPP'i 


NOT ii^Fn 


U U U v> £..U 


U U U y Jr! U U 


XO^ 7 


nr 


Af rnnppp 


wni n^pn 






iOOU 


nr 


Af rnPFPP ) 


WOT n^pn 


U U U \_ O V 




XOQX 


nr 


AfronFRP'i 


NOT n^Fn 


U u u U *) ni 


UUUU unuu 


1AA9 


nr 


AfrnnFPP^ 




Q00C3B 


00000400 


1663 


DC 


ACCODFRR) 


NOT USED 


000C3C 


OOOOOAOO 


166^ 


DC 


A(CODERR) 


NOT USED 


O00C40 


GOOOOAOD 


1665 


DC 


A(CODERR) 


NOT USED 




OOOOOAOO 


1666 


DC 


A(CODERR) 


NOT USED 


000C48 


OOOOOAOO 


1667 


DC 


A(CODERR) 


NOT USED 


000C4C 


OOOOOAOO 


1668 


DC 


A(CODERR) 


NOT USED 


00CC50 


OOOOOAOO 


1669 


DC 


A(CODERR) 


NOT USED 


00CC54 


OOOOOAOO 


1670 


DC 


A(CODERR) 


NOT USED 


000C58 


OOOOOAOO 


1671 


DC 


A(CODERR) 


NOT USED 


G00C5C 


OOOOOAOO 


1672 


DC 


A(CODERR) 


NOT USED 
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LOG OBJECT CODE ADDRl ADBR2 STMT SOURCE STATEHENT 

000C60 COOOOAOO 1673 DC ACCODERR) 

OaOC64 OOOOOAOO 1674 DC A(CODERR) 

000C68 OOOOOAOQ 1675 DC ACCODERR) 

000C6C OOOOOAOO 1676 DC ACCODERR) 
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NOT USED 
NOT USED 
NOT USED 

NOT USED LAST C0DE=99 
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1676 
1679 
1660 
1681 
1662 
1683 
1684 
1685 
1686 
1667 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1696 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1723 
1729 
1730 
1731 
1732 



CPU SIMULATION 

THE SIMULATED CPU INSTRUCTIONS ARE THOSE OF THE 1620 MODEL 2 
EQUIPPED WITH THE SPECIAL FEATURE »INDEX REGISTERS^ THE FOLLOW- 
ING TABLE REPRESENTS, IN ALPHABETIC ORDER, ALL CPU OPERATIONS 
WHICH CAN BE SIMULATED, 



CPU SIMULATION CONSISTS OF THE FOLLOWING SECTIONS 

- INTERNAL DATA TRANSMISSION OPERATIONS 

- LOGIC OPERATIONS 

- PROGRAM CONTROL OPERATIONS 

- ARITHMETIC OPERATIONS 

- FLOATING-POINT OPERATIONS 

- INDEX REGISTER OPERATIONS 



THE CPU OPERATIONS MENTIONED IN THE ABOVE TABLE HAVE A NUMBER OF 

COMMON CHARACTERISTICS WHICH ARE= 

1) ENTRY POINTS 

THE ENTRY POINT FOR EACH OF THE SIMULATION ROUTINES CORRESPONDS 
TO THE 1620 MNEMONICS OF THE INSTRUCTION PLUS ITS CODE NUMBER. 

EXAMPLE = TDM15 FOR 'TRANSMIT DIGIT IMMEDIATE' 

2) INPUT 

WHEN EACH OF THE ROUTINES IS ENTERED, THE GENERAL REGISTER 'CNTR' 
CONTAINS THE ADDRESS OF THE 1620 INSTRUCTION (IN MEMORY MAPPING). 
THE DOUBLE WORD 'BUFFP' CONTAINS THE OPERATION CODE AND THE P AD- 
DRESS IN PACKED DECIMAL FORMAT. 

./... 



A 


BTFL 


CF 


H 


TD 




AM 


B8 


C 


LD 


TDM 




B 


BCX 


CM 


LDM 


TF 




BLX 


BCXM 


D 


MA 


TFH 




BLXM 


BI 


DM 


MF 


TFL 




BX 


BNF 


FADD 


M 






BXH 


BNG 


FDIV 


MM 


TR 




BS 


BNI 


FMUL 


NOP 


TRNM 




BSX 


BNR 


FSL 


SF 


TNF 




BT 


BD 


FSR 


S 


TNS 




BTM 




FSUB 


SH 






IF THE 1620 


MODEL 1 IS SIMULATED, OR 


IF MODEL 2 IS 


SIMULATED WITH- 




OUT CERTAIN 


SPECIAL FEATURES, 


SOME OF 


THESE INSTRUCTIONS WILL BE 




ELIMINATED DURING THE EDITING 


PROCESS 









A2SB 



1620 SIMULATOR 



50 



LOG OBJECT CODE 



ADDRi ABDR2 STHT 
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ASM H V 05 22.10 05/07/81 



1735 ^ 

1736 ^ ./... 

1737 « 

1738 ^ THESE ARGUMENTS ARE USED FOR ADDRESS CONVERSION, IF SUCH IS RE- 

1739 * QUIRED, AND THEN FOR THE EXECUTION OF THE SIMULATED 1620 IN- 

1740 ^ STRUCTION, 

1741 ^ 

1742 * 3) OUTPUT 

1743 ^ THE OUTPUT FROM THE ROUTINES DEPENDS ON THE FUNCTION OF THE SIM- 

1744 ^ ULATED INSTRUCTION. 

1745 ^ 

1746 ^ 4) EXIT 

1747 * AT THE END OF EACH ROUTINE, CONTROL IS GIVEN TO ONE OF THE TWO 

1748 « 'BIR' ENTRIES. 

1749 ^ 

1750 * 5) GENERAL SUBROUTINES 

1751 ^ 

1752 * A) THE 'COHP» SUBROUTINE IS USED FOR 'COMPARE' AND 'COMPARE IMME- 

1753 ^ DIATE 'OPERATIONS. IT IS ALSO USED FOR 'FLOATING POINT' OPER- 

1754 ^ ATIONS IF THIS OPTION IS INCLUDED. 

1755 ^ 

1756 * B) THE 'FIXADD' SUBROUTINE IS USED FOR 'ADD' AND 'ADD IMMEDIATE' 

1757 ^ OPERATIONS. IT IS ALSO USED FOR 'FLOATING ADD' AND 'INDEX RE- 

1758 * GISTER' OPERATIONS IF THESE OPTIONS ARE INCLUDED. 

1759 * 

1760 ^ C) THE 'MULT' SUBROUTINE IS USED FOR 'MULTIPLY' AND 'MULTIPLY IM- 

1761 * MEDIATE' OPERATIONS. IT IS ALSO USED FOR THE 'FLOATING MUL- 

1762 ^ TIPLY' OPERATION IF THIS OPTION IS INCLUDED. 

1763 * 

1764 * D) THE 'INDIC SUBROUTINE IS USED FOR THOSE OPERATIONS WHOSE RE- 

1765 ^ SULT MODIFIES THE HIGH/POSITIVE AND EQUAL/ZERO INDICATORS. 

1766 ^ 

1767 * E) THE 'ARCHK' SUBROUTINE IS USED FOR OPERATIONS WHICH CAUSE AN 
1766 * ARITHMETIC CHECK (FOR INSTANCE OVERFLOW). 

1769 ^ 

1770 ^ F) THE 'EXCHK' SUBROUTINE IS USED FOR FLOATING-POINT ARITHMETIC 

1771 ^ OPERATIONS WHEN EXPONENT OVERFLOW OR UNDERFLOW OCCURS. 

1772 * 

1773 ^ G) THE 'FIXDIV SUBROUTINE IS USED FOR 'DIVIDE' AND 'DIVIDE IMME- 

1774 ^ DIATE' OPERATIONS AND FOR 'FLOATING DIVIDE' OPERATIONS IF ONE 

1775 * OR BOTH OF THESE OPTIONS ARE INCLUDED. 

1776 * 

1777 ^ H) THE 'SHIFT' SUBROUTINE AND THE 'EXPOW' SUBROUTINE ARE USED FOR 

1778 * FLOATING-POINT ARITHMETIC OPERATIONS. 

1779 ^ 

1780 ^ 

1781 ^ ./... 



if 

9€ 



1782 
1763 
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1786 * * 

1787 ^ ./.•• * 

1788 * * 

1789 ^ NOTE= * 

1790 * WRAP-AROUND IS SIMULATED IN THE FOLLOWING OPERATIONS^ * 

1791 ^ ^ 

1792 * -TRANSMIT FIELD IMMEDIATE TFM-16 * 

1793 ^ -TRANSMIT FIELD l¥-2^ « 

1794 ^ -TRANSMIT RECORD TR-31 * 

1795 ^ -TRANSMIT RECORD NO RECORD MARK TRNM-30 * 
179G * -TRANSFER NUMERICAL STRIP TNS-72 * 
1797 *f -TRANSFER NUMERICAL FILL TNF-73 * 
1793 * -TRANSFER FLOATING TFL-06 * 

1799 * -BRANCH AND TRANSMIT FLOATING BTFL-07 ^ 

1800 * * 
1601 ^ IT IS NOT SIMULATED IN FIXED AND FLOATING-POINT ARITHMETIC AND * 

1802 ^ COMPARE OPERATIONS. * 

1803 * * 
1604 * * 
1805 ^ THOSE OF THE FOLLOWING ROUTINES THAT ARE SELF-EXPLANATORY WILL ^ 
1806^ NOT BE PRECEDED BY ANY GENERAL COMMENTS. * 
1607 * * 
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1811 ^ ^ 

1812 ^ SECTION 1 ^ 
1613 * INTERNAL DATA TRANSMISSION OPERATIONS * 
1814 ^ ^ 
1815 



1816 
1819 
1820 
1821 
1822 
1823 
1824 
1825 



« TRANSMIT DIGIT * 



^ 1, TRANSMIT DIGIT IMMEDIATE 
* 2. TRANSMIT DIGIT 



000C70 4195 COOB 
000C74 45F0 0906 
00CC78 47F0 0C80 



OOOOB 1827 TDM15 LA RQUKCNTR) 
00906 1828 BAL 15,C0NVP 

00C60 1829 B TD25+4 



Q = RIGHTMOST ADDRESS OF INSTR. 
CONVERT P ADDRESS 
60 TO TRANSMIT DIGIT 



000C7C 45F0 0902 00902 1831 TD25 BAL IS.CONVPQ 

000C60 0200 5000 9000 00000 00000 1832 MVC 0(1,RP) ,0(RQ) 

000C86 47F0 07F6 007F6 1833 B ENTRYl 



CONVERT P AND Q ADDRESSES 
MOVE DIGIT + FLAG 
RETURN TO 'BIR' 



1837 
1833 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 



TRANSMIT FIELD 

1. TRANSMIT FIELD IMMEDIATE 

2, TRANSMIT FIELD 

AFTER CONVERSION OF THE P AND Q ADDRESSES, THE FIRST BYTE IS 
MOVED FROM THE P ADDRESS TO THE Q ADDRESS, A LOOP IS THEN EN- 
TERED TO TRANSMIT ONE BYTE AFTER THE OTHER FROM RIGHT TO LEFT 
(INCLUDING THE FLAG, IF ANY), THE WRAP-AROUND FEATURE IS IN- 
CLUDED. 



9t 



000C6A 4195 OCOB 
000C8E 45F0 0906 
000C92 47F0 0C9A 



OOOOB 1852 TFM16 LA RQ,11(CNTR) 
00906 1853 BAL 15,C0NVP 

00C9A 1854 B TF26*4 



Q = RIGHTMOST ADDRESS OF INSTR. 
CONVERT P ADDRESS 
60 TO TRANSMIT FIELD 



000C96 45F0 0902 



00902 



1856 TF26 BAL 15,CCNVPQ 



CONVERT P AND Q ADDRESSES 
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000C9A D200 8000 9000 00000 00000 

GOOCAO ^5F0 OCeS 00CB8 

000CA4 D200 6000 9000 00000 00000 

OOOCAA 9120 9000 00000 

OOOCAE ^710 OCAO 



000Cg2 47F0 07F6 



OOCAO 
007F6 



1857 

1856 TFA 

1859 

1860 

1661 

1662 



MVC 

BAL 

HVC 

TM 

BO 

B 



0(1.RP),0(RQ) 
15,TNSMR+2 
0(1,RP),0(RQ) 
0(RQ),X»2O' 
TFA 
ENTRYl 



MOVE FIRST CHARACTER 
TEST FOR WRAP-AROUND 
MOVE CURRENT CHARACTER 
TEST IF FLAGGED 
NO, LOOP 
YES, EXIT 



00CCB6 0680 1864 TNSNR BCTR 

C00CB8 0680 1865 BCTR 

OOCCBA 1966 1866 CR 

OOOCBC 4740 OCCA OOCCA 1867 BL 

ODOCCO 0690 1868 TNSWB BCTR 

000CC2 1996 1869 CR 

000CC4 07AF 1670 BCR 

000CC6 1697 1671 LR 

000CC5 07FF 1872 BR 

OOOCCA 1867 1873 TNSWA LR 

OOOCCC 47F0 OCCO OOCCO 1874 B 



RP,0 RP=RP-1 

RP 0 RP=RP"~1 

Rp!mAPORG IS RP LOWER THAN MAPORG 

TNSWA YES, BRANCH 

RQ,0 N0,RQ=RQ-1 

RQ,HAPORG IS RQ LOWER THAN MAPORG 

10,15 NO, BRANCH 

RQ,SI2E YES,RQ=SI2E 

15 RETURN TO CALLER 

RP,SIZE RP=SI2E 

TNSWB RETURN TO CALLER 



1878 ^ * 

1879 * TRANSMIT RECORD * 

1880 ^ ^ 
1861 ^ AFTER CONVERSION OF THE P AND Q ADDRESSES, THE FIRST BYTE IS * 
1832 * MOVED FROM THE P ADDRESS TO THE Q ADDRESS. A LOOP IS THEN EN- ^ 
1883 ^ TERED TO TRANSMIT ONE BYTE AFTER THE OTHER FROM RIGHT TO LEFT ^ 
1864 ^ (INCLUDING THE FLAG, IF ANY). * 
1885 ^ ^ 
1866 ^ THE WRAP-AROUND FEATURE IS INCLUDED. * 
1887 * * 



1868 



OOOCDO 


45F0 


0902 


00902 


1690 


TR31 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


000CD4 


DZOO 


80QG 9000 00000 00000 


1891 




MVC 


0(1,RP),0(RQ) 


MOVE ONE CHARACTER 


OCOCDA 


910A 


9000 


00000 


1892 




TH 


0(RQ),K'^OA'' 


TEST IF RECORD MARK 


OOOCDE 


4710 


07F6 


007F6 


1693 




BO 


ENTRYl 


YES EXIT 


000CE2 


45F0 


OCEA 


OOCEA 


1894 




BAL 


15, TRWR 


TEST FOR WRAP-AROUND 


C00CE6 


47F0 


0CD4 


00CD4 


1695 




B 


TR31+4 


LOOP 


OOOCEA 


4183 


oi^i 


GOOOi 


1897 


TRWR 


LA 


RP,1(RP) 


RP=RP+1 


OOOCEE 


1957 






1698 




CR 


RP,SI2E 


IS RP GREATER THAN SIZE 


OOOCFO 


4720 


0000 


00000 


1899 




BH 


TR31B 


YES, BRANCH 


000CF4 


4199 


0001 


00001 


1900 


TR31A 


LA 


RQ,1(RQ) 


N0,RQ=RQ+1 


000CF8 


1997 






1901 




CR 


RQ,SI2E 


IS RQ GREATER THAN SIZE 


OOOCFA 


0000 






1902 




BCR 


BNH,15 


NO, RETURN TO CALLER 



IEV044 ERROR UNDEFINED SYMBOL 

IEV029 ERROR ^^^^ INCORRECT REGISTER OR MASK SPECIFICATION 

OOOCFC 1896 1903 LR RQ,MAPORG YES,RQ=MAPORG 

OOOCFE 07FF 1904 BR 15 RETURN TO CALLER 



A2SB 1620 SIMULATOR 

LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT 



PAGE 5^ 
ASM H V 05 22.10 05/07/81 



OOODOO 1886 
000D02 47F0 0CF4 



1905 TR31B LR RP,MAPORG 
00CF4 im B TR31A 



RP=MAPORG 



A2SB 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT 



ASM H V 05 22.10 05/07/81 



OOAOO 



1908 

1909 .N0DSK7 

1910 TRNH30 

1911 .DSKKIA 
1912 



AIF 

AMOP 

EQU 

ANOP 

AIF 



(NOT &DISK).N0DSK7 
CODERR 

(NOT &TRANS).N0TRN1 



CODE OPERATION ERROR 
ADDIT INSTRUCTIONS 



191^ 

1915 ^ * 

1916 * TRANSFER NUMERICAL STRIP ^ 

1917 ^ * 

1918 ^ THE P AND Q ADDRESSES ARE CONVERTED. THE P ADDRESS IS TESTED. IF ^ 

1919 ^ THIS ADDRESS IS ODD, THE FIRST NUMERIC DIGIT IS MOVED FROM THE * 

1920 ^ P FIELD TO THE Q FIELD, AND THE SECOND NUMERIC DIGIT IS TEST- * 

1921 * ED. IF IT IS DIFFERENT FROM 5, 2 OR 1, A 'D' IS MOVED INTO THE * 

1922 * ZONE PART OF THE Q DIGIT, OTHERWISE AN 'F' IS MOVED INTO THE ZONE * 

1923 * PART OF THE Q DIGIT. THEN, A LOOP IS ENTERED TO MOVE EACH NUMERIC * 

1924 * DIGIT FROM THE P ADDRESS TO THE Q ADDRESS. A TEST FOR A FLAG TER- * 

1925 ^ HINATES THIS SEQUENCE. ^ 

1926 ^ * 

1927 



000D06 


45F0 


0902 






00902 


1929 


TNS72 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


OOODOA 


4280 


0F53 






00F58 


1930 




STC 


RP,STC 


TEST IF P ADDRESS IS ODD 


OOODOE 


9101 


0F58 




0Gr58 




1931 




TM 


STCX^Ol* 




000D12 


4780 


09FG 






009F0 


1932 




BZ 


ERRORP 


NO,P IS INVALID 


00CD16 


13A8 










1933 




LR 


WR1,RP 


YES, PUT P-1 IN WRl 


000D18 


06A0 










1934 




BCTR 


WR1,0 




OOODIA 


D200 


90C0 


8000 


00000 


00000 


1935 




MVC 


0(1,RQ),0(RP) 


MOVE LAST NUMERIC FROM P TO 


000D20 


9400 


0F58 




00F58 




1936 




NI 


STC,X'00» 


CLEAR STC 


000024 


DiOO 


0F58 


AOOO 


00F58 


00000 


1937 




MVN 


STC(1),0(NR1) 


MOVE LAST ZONE FROM P 


000D2A 


9505 


0F58 




00F58 




1938 




CLI 


STCX'OS' 


COMPARE ZONE WITH 5 


000D2E 


4760 


0D6A 






00D6A 


1939 




BC 


8, TNSB 


EQUAL, BRANCH 


000D32 


4720 


0D3E 






00D3E 


1940 




BC 


2, TNSA 


HIGHER, BRANCH 


00GD36 


9103 


0F56 




0CF58 




1941 




TM 


STC,X'03* 


LOWER, TEST IF EQUAL TO 1 OR 


0CCD3A 


4740 


0D5A 






00D5A 


1942 




BC 


4, TNSC 


YES, BRANCH 


000D3E 


45F0 


0CB6 






00CB6 


1943 


TNSA 


BAL 


15,TNS'p|R 


TEST FOR WRAP-AROUND 




DIOO 


9000 


8000 


00000 


00000 


1944 




MVN 


0(1,RQ),0(RP) 


MOVE NUMERIC FROM P TO Q 


0D0D4S 


9120 


90G0 




00000 




1945 




TM 


0(RQ),K^20* 


TEST IF Q FLAGGED 


000D4C 


4780 


07F6 






007F6 


1946 




BZ 


ENTRYl 


YES, EXIT TO 'BIR' 


000D50 


D300 


9000 


8000 


00000 


00000 


1947 




MVZ 


0(1,RQ),0(RP) 


NO, MOVE ZONE FROM P TO Q 


000D56 


47F0 


0D3E 






00D3E 


1946 




B 


TNSA 


BRANCH TO TNSA 


000D5A 


9101 


0F58 




00F56 




1949 


TNSC 


TM 


STCX'Ol* 


TEST IF EQUAL 1 


000D5E 


4710 


0D6A 






00D6A 


1950 




BC 


1>TNSB 


YES, BRANCH 


000D62 


910F 


9000 




OODOO 




1951 




TM 


0(RQ),X»OF» 


NO, TEST IF NUMERIC EQUAL 0 


000DG6 


4770 


0D3E 






00D3E 


1952 




BC 


7, TNSA 


NO, BRANCH 


0G0D6A 


94DF 


9000 




00000 




1953 


TNSB 


NI 


0(RQ),X»DF» 


MOVE *D' TO Q ZONE 


000D6E 


47F0 


0D3E 






0CD3E 


1954 




B 


TNSA 


BRANCH TO TNSA 



1958 * * 



A2SB 1620 SIHULATOR 

LOG OBJECT CODE ADDRl ADDR2 



000D72 




0902 






00902 


00GD7G 


mo 


0F53 






00F58 


000D7A 


9101 


0F58 




00F58 




000D7E 


4780 


09F0 






009F0 


000DS2 


0680 










000DO4 


DlOO 


8001 


9000 


00001 


00000 


000D8A 


96F0 


8001 




00001 




000D8E 


9120 


9000 




00000 




000092 


4780 


CDBA 






OODBA 


OCOD% 


92F7 


8000 




00000 




0C0D9A 


45F0 


0CB8 






00CB8 


000D9E 


0630 










OOODAO 


DlOO 


BDDl 


9000 


00001 


00000 


000DA6 


96F0 


8001 




00001 




OOODAA 


92F7 


8000 




00000 




OOODAE 


9120 


9000 




oococ 




000DE2 


4710 


0D9A 






00D9A 


000DB6 


47F0 


07F6 






007F6 


OOODBA 


92F5 


8000 




00000 




OOODBE 


47F0 


0D9A 






00D9A 
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1959 ^ 

1960 * 

1961 * 

1962 ^ 

1963 « 

1964 * 

1965 ^ 

1966 ^ 

1967 



TRANSFER NUHERICAL FILL 

THE P AND Q ADDRESSES ARE CONVERTED TO BINARY. THE P ADDRESS IS 
TESTED. IF IT IS ODD, THE Q DIGIT, WITH AN 'F' IN THE ZONE PART, 
IS HOVED TO THE P ADDRESS- A TEST FOR A Q DIGIT FLAG IS HADE AND 
A LOOP IS ENTERED TO EXTEND THE Q FIELD INTO THE P FIELD, WITH 
'F7» BYTES INTERLEAVED. 



1 QCQ 




Dnu 




LUriVtK 1 r ftriU y nUUKtlbOLO 


1<57fl 

i,7f V 




CTf 
%l i w 






1971 




TH 


STCX'Ol' 




1972 




BZ 


ERRORP 


NO,P IS INVALID 


1973 




BCTR 


RP,0 


DECREHENT RP BY ONE 


1974 




HVN 


1(1,RP),0(RQ) 
1(RP),X'F0' 


HOVE Q DIGIT TO P DIGIT 
WITH 'F» IN ZONE 


1975 




01 


1976 




TH 


0(RQ),X»20» 


IS Q DIGIT FLAGGED 


1977 




BZ 


TNFB 


YES, BRANCH 


1978 




HVI 


0(RP),X'F7' 


N0,PUT'F7'AT RP 


1979 


TNFA 


BAL 


15,TNSNR+2 


TEST FOR WRAP-AROUND 


1980 




BCTR 


RP,0 




1981 




HVN 


1(1,RP),0(RQ) 


HOVE NUHERIC FROH Q TO P 


1932 




01 


1(RP),XT0' 


WITH 'F'^ IN ZONE 


1983 




HVI 


0(RP),X'F7* 


PUT'F7*AT RP ADDRESS 


1984 




TH 


0(RQ),X»20' 


IS Q DIGIT FLAGGED 


1985 




BO 


TNFA 


NO, LOOP 


1986 




B 


ENTRYl 


YES, EXIT TO 'BIR' 


1937 


TNFB 


HVI 


0(RP),X'F5' 


PUT'FS'IN RP BYTE 


1966 




B 


TNFA 




1969 




AGO 


.TRNSXl 




1990 


.TRNSXl 


ANOP 
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LOC OBJECT CODE AODRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/61 

1992 ***^***^*^*^^^^*^*^^^^^^^^*^^^^**^^*^*^^********^^*******^^ 

1993 ^ * 
199*^ * SECTION 2 * 

1995 * LOGIC OPERATIONS * 

1996 ^ * 

1997 ^^^«%^^i^^^^i(M^^ie^^^X9f^9€^9«9(9f^^^^^i^96^9(«^^%X^9(^^9(9(X^^ 



2000 * * 

2001 ^ COHFARE * 

2002 * ^ 

2003 ^ AFTER CONVERSION OF THE P AND Q ADDRESSES, THE P FIELD AND Q FIELD ^ 

2004 ^ SIGNS ARE COHPARED. UNLIKE SIGNS CAUSE THE SETTING OF THE E/2 * 

2005 ^ AND H/P INDICATORS. A SCAN THEN DETERMINES IF THE P FIELD AND * 

2006 * THE Q FIELD ARE ZERO, AND IF THE P FIELD IS LONGER THAN THE ^ 

2007 ^ Q FIELD. * 

2008 ^ * 

2009 ^ IF THE P FIELD AND Q FIELD SIGNS ARE ALIKE, A COMPARISON ON ABSO- ^ 

2010 LUTE VALUES IS PERFORMED BY THE 'COMP* SUBROUTINE. ^ 

2011 * * 

2012 ^ THE COMPARISON IS COMPLETED WHEN THE NUMBER OF BYTES IN THE P ^ 

2013 * FIELD IS GREATER THAN OR EQUAL TO THE NUMBER OF BYTES IN THE Q * 

2014 * FIELD*. OTHERWISE, THE ARITHMETIC CHECK INDICATOR IS SET TO OVER- « 

2015 * FLOW. * 

2016 * THE MINIMUM LENGTH OF THE TWO COMPARED FIELDS IS TWO DIGITS, * 

2017 * *THE COMPARISON IS CORRECT UP TO THE END OF THE SMALLER ONE OF * 

2018 * THE COMPARED FIELDS. * 

2019 5^ * 



2020 ^^^^*^^^^^^^****^^^*^^***********^^^^^*^^^^*^^^^**^^^^^^^^^^^ 



000DC2 


45F0 


0902 




00902 


2022 


C24 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


000DC6 


5080 


09E8 




0C9E8 


2023 




ST 


RP,1NITP 


SAVE P ADDRESS 


OOODCA 


95F0 


6000 


OOGOO 




2024 




CLI 


0(RP),X'F0» 


IS P FIELD POSITIVE 


OOODCE 


47A0 


0DE2 




00DE2 


2025 




BC 


10,C24A 


YES, GO TO C24A 


000DD2 


95 FO 


9000 


loooo 




2026 




CLI 


0(RQ),K'Fa' 


NO, TEST Q SIGN POSITIVE 


00CDD6 


4740 


0E4C 




00E4C 


2027 




BL 


C24B 


NO, BRANCH 


OOCDDA 


9200 


0003 


00&03 




2028 




HVI 


HPEZ,K*00' 


YES, SET H/P,E/Z = OFF 


OOODDE 


47F0 


ODEE 




OODEE 


2029 




B 


C24C 




000DE2 


95F0 


9000 


yooo 




2030 


C24A 


CLI 


0(RQ),X'FO' 


IS Q FIELD POSITIVE 


000DE6 


47A0 


0E4C 




00E4C 


2031 




BC 


10,C24B 


YES, GO TO C24B 


OOODEA 


9210 


0003 


00003 




2032 




MVI 


HPEZ,X'10' 


NO, SET H/P=0N,E/Z=OFF 


OOODEE 


910F 


8000 


eoooo 




2033 


C24C 


TM 


0(RP),K^OF' 


IS P FIELD EQUAL TO ZERO 


000DF2 


4750 


0E5C 




dOESC 


2034 




BC 


B0M,C24ARC 


GO TO TEST IF OVERFLOW 0CCURV1L2 












2035 




BC 


BOM>ENTRY0 


NO, RETURN TO 'BIR' (DELETED) V1L2 


000DF6 


910F 


9000 


dodoo 




2036 




TM 


0(RQ),X'OF' 


YES, IS Q FIELD EQUAL TO ZERO 


OOODFA 


4750 


0E5C 




00E5C 


2037 




BC 


B0M,C24ARC 


GO TO TEST IF OVERFLOW V1L2 












2038 




BC 


BOM,ENTRY0 


NO RETURN TO 'BIR' (DELETED) V1L2 


OOODFE 


0680 








2039 


C24E 


BCTR 


RP,0 


YES,RP=RP-1 


OOOEOO 


0690 








2040 




BCTR 


RQ,0 


RQ=RQ-1 


000E02 


910F 


8000 


00000 




2041 




TM 


0(RP),X'OF» 


IS P FIELD EQUAL TO ZERO 


000E06 


4750 


0E60 




00E60 


2042 




BC 


B0M,C24AR1 


GO TO TEST IF OVERFLOW V1L2 












2043 




BC 


BOM,ENTRY0 


NO, RETURN TO 'BIR» (DELETED) V1L2 



A2SB 
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1 fir 


OBJECT CODE 


ADDRl ADDR2 


3 in 1 




STATEMENT 


ASM H V 05 


22*10 




910F 


9800 


00000 








TM 


0(RQ),X'0F' 


YES, IS Q FIELD EQUAL TO ZERO 


UUUcUil 


4750 


0E60 




00E60 






BC 


B0M,C24AR1 


bU lU Itbl ir UVtKrLUW 














^U4b 




BC 


BOM,ENTRY0 


NU,Rc.TukN 10 'dIK lUtLETtUJ 


111 I o 




9120 


9C00 


00000 








TM 


0(RQ),X'20' 


vcc TC n CTci n cri Arrtrn 
Ytb,ib y rlLLU rLAbbtu 




UUUilXD 


4760 


0E2E 




00E2E 






BZ 


C24D 


Ytb ,nKHNLn 




UUUL Lrl 


9120 


BOOO 


GO0OO 








TH 


0(RP),X'20» 


NUjib r rXtLu rLnUbcu 




UUULxL 


4750 


ODFE 




OODFE 






BC 


B0M,C24E 


YtbjLUUr 






9201 


0003 


00003 




9nc;i 




MVI 


HPEZ,X'01» 


ccT u/D-ncc c/v-nM 
NU, bti n/r-Urr ,t/*£_-UN 






45F0 


357C 




0157C 






BAL 


15,ARCHK 


ADTTUMCTir CU^ri^ TCCTTMf^ 
nKiinnillil, LnLLfs iLDilrivJ 






47F0 


07F6 




()07F6 


9nc;^ 




B 


ENTRYO 


DCTHDW TA »DTDf 






9120 


8000 


00000 








TM 


0(RP),X'20» 


lb r ritLU rLnubllU 






4780 


0E44 




00E44 


9nqq 




BZ 


C24F 


VCC DDAkirU 




UUUdob 


0660 












BCTR 


RP,0 


K?A DD-DD-I 

r*U ,Kr-Kr i 




vU UC OQ 


910F 


8000 


00000 




9n^7 




TM 


0(RP),X'OF^ 


TC □ CTCI n cniiAi to Tcon 
ib r ritLU tyUHL lU ^cKU 






4750 


07F6 




007F6 






BC 


BOM, ENTRYO 


k\n DCTIJCM TA IDTD? 

NU,KtlUKN lU DiK 




UUUL'tU 


47F0 


0E2E 




00E2E 


cUD 7 




B 


C24D 


Ytb,LOOP 




UUUut4 


9201 


0003 


00003 




£rUOU 




HVI 


HPEZjX^Ol" 


CCT u/D-ncc C/7-nM 

bti rl/r-Urr ,t/d-Url 






47F0 


07F6 




007F6 






S 


ENTRYO 


KfclURN TO 'BIR' 




UUULHL 


9200 


0E55 


00E55 




OfiLO 


r9/iP 


MVI 


NOQEND-fl,X'00* 


b&T bWlTCn NOQEND Orr 






45F0 


OESC 




00E8C 






BAL 


15,C0MP 


COnPAKE bUDKOUiiNc 




UUUt j4 


4700 


0E26 




00E26 






BC 


N0P,C24I 


ShITCH NOQtND 






47F0 


07F6 




007F6 






B 


ENTRYO 


DCTIIDK! TA fDTDt 




UUUtDL 


0660 








ZUbo 




BCTR 


RP,0 


RP=RP-1 


V1L2 




0690 












BCTR 


RQ,0 


RQ=RQ-1 


V1L2 




9120 


8000 


00000 








TM 


0(RP),X'20'' 


IS P FIELD FLAGGED 


V1L2 


000E64 


4780 


0E74 




00E74 


2069 




BC 


6,C24AR2 


YES, BRANCH 


V1L2 


000E68 


9120 


9000 


00000 




2070 




TM 


0(RQ),X'20' 


NO, IS Q FIELD FLAGGED 


V1L2 


000E6C 


4780 


07F6 




007F6 


2071 




BC 


8,ENTRY0 


YES RETURN TO 'BIR* 


V1L2 


C00E70 


^7F0 


OESC 




0CE5C 


2072 




B 


C24ARC 


NO, LOOP 


V1L2 


000E74 


9120 


9000 


00000 




2073 


C24AR2 


TM 


0(RQ),X'20» 


IS Q FIELD FLAGGED 


ViL2 


000E76 


4760 


07F6 




007F6 


2074 




BC 


8, ENTRYO 


YES RETURN TO 'BIR» 


V1L2 


0G0E7C 


47F0 


0E26 




00E26 


2075 




B 


C24I 


NO 60 TO ARITH CHECK SUBR 


V1L2 



2078 



2079 ^ ^ 

2030 * COMPARE IMMEDIATE * 

2081 * ^ 

2062 ^ OPERATION IS AS FOR THE ABOVE 'COMPARE' INSTRUCTION EXCEPT THAT * 

2083 ^ ONLY THE P ADDRESS IS CONVERTED, THE Q ADDRESS IS GIVEN THE VAL- * 

2084 « UE CORRESPONDING TO THE RIGHTMOST BOUNDARY OF THE 1620 INSTRUCT- ^ 
2035 * ION* * 
2086 * * 



000E80 45F0 0906 
000E84 4195 OOOB 
000E88 47F0 CDC6 



00906 
OOOOB 
00DC6 



2089 CM14 BAL 15,C0NVP 

2090 LA RQ,11(CNTR) 

2091 B C24H 



CONVERT P ADDRESS 
RQ = CNTR + 11 
GO TO COMPARE 



A2SB 1620 SIMULATOR 
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STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 



2095 ^ * 

20% ^ 'COMP' SUBROUTINE * 

2097 * * 

2098 * THIS SUBROUTINE IS USED BY THE FIXED-POINT 'COMPARE' OPERATION, ^ 

2099 ^ AND THE FLOATING-DIVIDE OPERATION. * 

2100 ^ * 

2101 ^ THE COMPARISON OF THE P AND Q FIELDS IS MADE, DIGIT BY DIGIT, FROM * 

2102 * RIGHT TO LEFT. ALL THE INDICATORS ARE SU5EQUENTLY MODIFIED. NEI- * 

2103 ^ THER THE P FIELD NOR THE Q FIELD IS ALTERED. ^ 

2104 * ^ 

2105 * OUTPUT UPDATING OF H/P AND E/Z INDICATORS * 

2106 ^ * 



UUUttJL 


61 Art 


OGOl 






UuUUi 






f A 


IJD1 1 


UP1 -1 




ni Art 


0E9D 


9000 




ft n n n n 
uuuuu 






nvN 


rAMDA-j-ifi'i nrDO^ 


rnMP&PF p WMMFPir 

LUnrhKC. r rsUnllKiL 


UUUcVb 


ni fid 


CF30 8000 


uUr oU 


UUUUU 


Zlll 




MV/M 

nvri 


ArAMD/i"^ n^Do^ 
HLUnr liJjUkKrJ 


MTTU n WIfMFDTr 

Wim y MUntKiL 


000E9C 


9500 


OF30 




00F30 




2112 


COMPA 


CLI 


ACOMP,X'00' 




UuUELriU 




CFIO 






UUr J.U 








UUnrD 


LUWCK 


00GEA4 


4780 


OFia 






00F18 


2114 




BE 


COMPE 


EQUAL 


UUUl„HO 




ooes 




uuuya 




91 1 




nv i 


nrt/l ,A lU 


1 n/r-Uri ,t,/<C-Urr 




ubou 










91 


LUnrr 




DD ft 
Kr J U 


DP-PP-1 
Kr-Kr i 


OOOEAE 


0690 










2117 




BCTR 


RQ,0 


RQ=RQ-1 


OOOEBO 


41AA 


0001 






00001 


2118 




LA 


NR1,1(NR1) 


14R1=WR1-M 


UUUUD*T 


ni nn 

UiUU 


OECl 


9000 




uuuuu 


9110 




nvri 






u V u i_ tjn 


DIDO 


GF30 8000 


00F30 


V U V u w 


2120 




MVN 


ACOMP(1)*0(RP) 


WITH 0 NUMERIC 


OOOECO 


9500 


0F30 




00F30 




2121 


COMPC 


CLI 


ACOMP,K'00' 




000EC4 


4720 


0F20 






00F20 


2122 




BH 


C0MP81 


HIGHER 


D00EC6 


4740 


or23 






00F28 


2123 




BL 


COMPEl 


LOWER 


OOOECC 


9120 


9000 




ODOOO 




2124 


COMPD 


TM 


0(RQ),X'20' 


IS Q FIELD FLAGGED 


OOOEDO 


4700 


0EE4 






00EE4 


2125 




BZ 


COMPl 


YES, BRANCH 


000ED4 


9120 


ecoo 




00600 




2126 




TM 


0(RP),X»20* 


IS P FIELD FLAGGED 


000ED8 


4710 


OEAC 






OOEAC 


2127 




BO 


CCMPF 


NO, LOOP 


OOOEDC 


92F0 


0E55 




0OE55 




2128 




MVI 


NOQEHO-fl,X''F0* 


SET SWITCH NOQEND ON 


OOOEEO 


47F0 


OEFA 






OQEFA 


2129 




6 


C0MP2 




000EE4 


9120 


8000 




00000 




2131 


COMPX 


TM 


0(RP),X*20* 


IS P FIELD FLAGGED 


000EE8 


4760 


OEFA 






OOEFA 


2132 




B2 


C0MP2 


YES, BRANCH 


OOOEEC 


0660 










2133 




BCTR 


RP,0 


N0,RP=RP-1 


OOOEEE 


910F 


8000 




00000 




2134 




TM 


0(RP)>X'OF* 


IS P FIELD NUMERIC = 


CC0EF2 


4760 


0EE4 






00EE4 


2135 




BZ 


COMPl 


YES, LOOP 


000EF6 


9210 


0003 




00003 




2136 




MVI 


HPEZ,X'10* 


SET H/P=ON,E/Z=OFF 


OOOEFA 


5880 


09E8 






009E8 


2138 


C0MP2 


L 


RP,INITP 


RESTORE P ADDRESS 


OOOEFE 


95F0 


8000 




00000 




2139 




CLI 


0(RP),X''FO' 


IS P FIELD POSITIVE 


00CF02 


07AF 










2140 




BCR 


10,15 




000F04 


9501 


0003 




00003 




2142 




CLI 


HPEZ,X'01^ 


NO, IS E/Z ON 


000F08 


078F 










2143 




B2R 


15 


YES, RETURN TO CALLER 



A2SB 



1620 SIHULATOR 





OBJECT CODE 


nUUrsi 




u U Ur Un 


9710 


0003 






UUUr Uc, 


07FF 








OOOFIO 


9200 


0003 


00003 




uuur is 


^7F0 


OEAC 




UUCnL 


00GF18 


9201 


0003 


00003 




nnnFir 


47F0 


OEAC 




OOEAC 


000F20 


9210 


0003 


00003 




O00F2^ 


47F0 


OECC 




OOECC 


00aF2B 


9200 


0003 


00003 




000F2C 


47F0 


OECC 




OOECG 


000F30 


oeoo 









STHT SOURCE STATEHENT 



91 £iC 




VT 
aX 


UQP7 VI in 






DK 




2im 


C0HP3 


HVI 


HPEZ,X'OC 






B 




2150 


CCMPE 


HVI 


HPEZ,X'01 


2151 




B 


COHPF 


2152 


COHPBl 


HVI 


HPEZ,X'10 


2153 




B 


COHPD 


2154 


COHPEl 


HVI 


HPEZ,X'00 


2155 




B 


COHPD 


2157 


ACOHP 


DC 


X'OOOO' 



PAGE GO 



ASH H V 05 22,10 05/07/81 



NO, EXCLUSIVE OR WITH H/P 
RETURN TO CALLER 



SET H/P,E/Z = OFF 
SET H/P=OFF,E/Z=ONN 
SET HP ON,EZ OFF 
SET H/P, E/Z = OFF 



BYTE FOR COHPARING P AND Q 



A2SB 



1620 SIHULATOR 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE 5TATEHENT ASM H V 05 22.10 05/07/81 

2160 * * 

2161 ^ BRANCH ON DIGIT ^ 

2162 * BRANCH ^ 

2163 * * 
2164 



000F32 


<4SF0 091E 




0091E 


2166 


BD43 


BAL 


15,C0NVQ 


CONVERT Q ADDRESS 


000F36 


910F 9000 


doodo 




2167 




TM 


0(RQ),X'OF» 


TEST IF DIGIT 


000F3A 


4780 07F6 




007F6 


2168 




BZ 


ENTRYl 


NO, GO TO »BIR' 


000F3E 


45F0 0906 




00906 


2169 


B49 


BAL 


15,C0NVP 


CONVERT P ADDRESS 


OO0F42 


1858 






2170 




LR 


CHTR,RP 


SET NEW INSTR. COUNTER 


OOOF^i^ 


4250 0F58 




00F53 


2171 


TESTBR 


STC 


CNTR,STC 


TEST IF BRANCH ADDRESS CORRECT 


000F43 


9101 0F58 


00F58 




2172 




TH 


STCK'Ol* 




000F4C 


4760 07FA 




007FA 


2173 




BC 


8,ENTRY2 


YES, BRANCH 


000F50 


45F0 00F4 




G00F4 


2174 




BAL 


15,HEST0P 


NO, ERROR, STOP SIMULATION 


OOOFS^ 


00D0019D 






2175 




DC 


A(NOBRAD) 




000F58 








2176 


STC 


DS 


H 





2179 5^^e*^5^5f^5€^^t^*5f9f*^e9C^*^%^^f9^^f?^^^f^$e^*^^f5f$^9e**9^9t9t*^9f^^$f9f**9f*9f**9f9f9^^ 

2160 ^ * 

2181 ^ BRANCH NO FLAG * 

2162 * ^ 



000F5A 45F0 091E 
000F5E 9120 9000 
000F62 4780 07F6 
000F66 47F0 0F3E 



GOdOO 



0091E 

007F6 
00F3E 



2165 BNF44 
2186 
2187 
2166 



BAL 
TM 
BZ 
B 



15,C0NVQ 
0(RQ),K'20r 
ENTRYl 
B49 



CONVERT Q ADDRESS 
TEST IF FLAG 
YES, GO TO 'BIR' 
NO, BRANCH TO B49 



2191 ^^^*^«**^*^*^5^*^i^^^^>^**^^^^«*^^^^*^^^^^*^^*5t*9f^^^^^(9^*****^f^***^*9f^^^X^t^^ 

2192 * ^ 
2193* BRANCH HO RECORD MARK ^ 
2194 ^ * 
2195 



00CF6A 45F0 091E 
000F6E 910A 9000 
00CF72 4710 07F6 
000F76 47F0 0F3E 



0091E 2197 fiMR45 BAL 15,C0NVQ 

00000 2198 TM 0(RQ),K'OA* 

007F6 2199 BO ENTRYl 

00F3E 2200 B B49 



CONVERT Q ADDRESS 
TEST IF RECORD MARK 
YES, GO TO 'BIR' 
NO, GO TO B49 



A2SB 1620 SIHULATOR 

LOC OBJECT CODE ADDRl ADDR2 
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STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 



2202 ^^5<*^*^^^^^^^^^^*^^^^*«*^^^*^^^^€^^9t9^«^t9t5**?^*^(*ieie*^9e9«*X9^^^t5(^^9^^^**^t*^ 



2203 ^ * 

220^ * BRANCH INDICATOR ^ 

2205 * * 

2206 * THE DIGITS Q8 AND Q9 ARE CONVERTED INTO BINARY IN ORDER TO OBTAIN ^ 

2207 ^ AN ADDRESS FOR THE HALFWORD TABLE "INDICA* AND FOR THE BYTE TAB- ^ 
22C8 ^ LES 'IHDICM' AND INDICX'. ^ 

2209 ^ * 

2210 * THE HALFWORD TABLE *INDICA' PROVIDES THE INDICATOR ADDRESS IN THE * 

2211 ^ DATA FIELD OF THE SIMULATOR (SEE UNDER 'CONSOLE SIMULATION" - BE- ^ 

2212 * GINNING OF SIMULATION). * 

2213 ^ * 

2214 * THE BYTE TABLE 'INDICM' PROVIDES THE MASK WHICH ALLOWS TESTING OF * 

2215 ^ THE INDICATOR BIT. * 

2216 * * 

2217 * THE BYTE TABLE 'INDICX' PROVIDES AN EXCLUSIVE-OR MASK THAT ALLOWS * 
2216 * CLEARING OF THE INDICATOR BIT AFTER TESTING, IF SO REQUIRED. * 
2219 ^ * 



000F7A 


9200 


OFBD 


OOFBD 




2222 


BI46 


MVI 


BNISl+1,0 


SET BNISl SWITCH OFF 


ooer7E 


9200 


0FC9 


00FC9 




2223 




MVI 


BNIS2il,0 


SET BNIS2 SWITCH OFF 


0C0F32 


4195 


0008 




00008 


2224 


8IA 


LA 


RQ,B(CNTR) 


LOAD ADDRESS OF Q3 


000F86 


910C 


9000 


00000 




2225 




TM 


0(RQ),X'OC' 


TEST INDICATOR VALIDITY 


00 CPS A 


4740 


OFBC 




OOFBC 


2226 




BC 


4, BNISl 


BRANCH IF INVALID 


000F6E 


F271 


09E0 9000 


009E0 


00000 


2227 




PACK 


BUFFQ(8),0(2,RQ) 


PACK Q8 AND Q9 


00aF94 


96nF 


09E7 


009E7 




2228 




01 


BUFFQ4-7,X'DF* 


SET + SIGN 


OO0F98 


4FA0 


09E0 




009E0 


2229 




CV3 


WR1,BUFFQ 


CONVERT INTO BINARY 


000F9C 


leeo 








2230 




LR 


WR2,0 


CLEAR WR2 REGISTER 


00CF9E 


438A 


OFOC 




OOFDC 


2231 




IC 


WR2,INDICM(WR1) 


GET TESTING MASK AND STORE IT 


C00FA2 


42B0 


ores 




00FB5 


2232 




SIC 


WR2,BIC-?"1 


IN TEST UNDER MASK 


Q00FA6 


43BA 


30A4 




010A4 


2233 




IC 


WR2,INDICX(WR1) 


GET XOR MASK AND STORE IT IN 


OOOFAA 


42B0 


0FC5 




00FC5 


2234 




STC 


WR2,BID+1 


EXCLUSIVE OR INSTRUCTION 


OOOFAE 


lAAA 








2235 




AR 


WR1,WR1 




OOOFBO 


43CA 


3004 




01004 


2236 




LH 


WR3,INDICA(WR1) 


LOAD ADDRESS OF TESTED BYTE 


0OOFB4 


9100 


COOO 


00000 




2237 


BIC 


TM 


0(WR3),X*00' 


TEST INDICATOR BYTE 


O0OFE3 


4770 


GFC4 




00FC4 


2238 




BC 


7, BID 


BRANCH IF INDICATOR ON 


OOOFBC 


4700 


0F3E 




00F3E 


2239 


BNISl 


BC 


N0P,B49 


SWITCH 1 FOR BNI47 


OOOFCO 


47F0 


07F6 




007F6 


2240 




B 


EN TRY 1 




0C0FC4 


9700 


teoo 


00000 




2241 


BID 


XI 


C(WR3),X'00' 


SET INDICATOR OFF (IF REQUIRED) 


000FC6 


4700 


07F6 




007F6 


2242 


BNIS2 


BC 


N0P,ENTRY1 


SWITCH 2 FOR BNI47 


OOOFCC 


47F0 


0F3E 




00F3E 


2243 




B 


B49 


BRANCH TO B49 



Azse 
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LOC OBJECT CODE ABDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/61 

22^^^ ^ ^ 
2247* BRANCH NO INDICATOR * 

2246 * * 

2249* SAME COMMENTS AS FOR 'BRANCH INDICATOR'. * 
2250 * * 



2251 i^*************f***if******^t^^*******^«**5f****^t***^f9t*^t9t*******^«*it*****^ 



OOOFDO 92F0 OFED OGFBD 2253 BNI47 MVI BNIS1+1,X'F0» SET BNISl SWITCH ON 

000FD4 92F0 0FC9 0GFC9 2254 MVI BNIS2+1,X'F0' SET BNIS2 SNITCH ON 

0C0FD8 47F0 8^82 00F82 2255 B BIA GO TO BI-46 



2258 

2259 * * 

2260 * TABLES FOR INDICATOR TESTING * 

2261 * * 
2262 



OOOFDC 


0080402010008040 


2264 


INDICM 


DC 


X'00804020100080400001' MASK TABl 


000FE6 


ooiooniiooioooo 


2265 




DC 


X'OOlOOllllOOlOOOOOOCF' 




OOOFFO 


0000000000060000 


2266 


INDERR 


DC 


X'00000000000800000000' 




OOOFFA 


0402010402010402 


2267 




DC 


X '04020104020104020107' 




001004 


OOOOOFFO 


2268 


INOiCA 


DC 


A (INDERR) 


ERROR 




001008 


OOOCGOOl 


2269 




DC 


ACPROSNI) 


INDICATOR 


01 


OOlOOC 


00000001 


2270 




DC 


A( PRO SMI) 


INDICATOR 


02 


001910 


OOOOOCOi 


2271 




DC 


ACPROSNI) 


INDICATOR 


03 


001014 


00000001 


2272 




DC 


ACPROSNI) 


INDICATOR 


04 


001018 


OOOOOFFO 


2273 




DC 


AC INDERR) 


ERROR 




OOlOiC 


0000C0G2 


2274 




DC 


A(NYCHEK) 


INDICATOR 


06 


001020 


00000002 


2275 




DC 


ACNYCHEK) 


INDICATOR 


07 


001024 


OOOOOFFO 


2276 




DC 


AC INDERR) 


ERROR 




001026 


00000005 


2277 




DC 


ACLASTCD) 


INDICATOR 


09 


00102C 


OOOOOFFO 


2276 




DC 


AC INDERR) 


ERROR 




001030 


00000003 


2279 




DC 


A(HPEZ) 


INDICATOR 


11 


001034 


00000003 


2280 




DC 


ACHPEZ ) 


INDICATOR 


12 


001036 


00000003 


2281 




DC 


A(HPEZ) 


INDICATOR 


13 


00103C 


00000004 


2282 




DC 


ACOFLOW) 


INDICATOR 


14 


001040 


00000004 


2283 




DC 


ACOFLON) 


INDICATOR 


15 


001044 


OOOOOFFO 


2284 




DC 


A (INDERR) 


ERROR 




001046 


OOOOOFFO 


2285 




DC 


AC INDERR) 


ERROR 




00104C 


OOOOOFFO 


2286 




DC 


AC INDERR) 


ERROR 




001050 


00000002 


2287 




DC 


ACNYCHEK) 


INDICATOR 


19 


001054 


OOOOOFFO 


2288 




DC 


AC INDERR) 


ERROR 




001058 


OOOOOFFO 


2269 




DC 


AC INDERR) 


ERROR 




00105C 


OOOOOFFO 


2290 




DC 


AC INDERR) 


ERROR 




001060 


OOOOOFFO 


2291 




DC 


AC INDERR) 


ERROR 




001064 


OOOOOFFO 


2292 




DC 


AC INDERR) 


ERROR 




001068 


00000002 


2293 




DC 


ACNYCHEK) 


INDICATOR 


25 


C0106C 


OOOOOFFO 


2294 




DC 


AC INDERR) 


ERROR 




001070 


OOOOOFFO 


2295 




DC 


AC INDERR) 


ERROR 





A258 



1620 SIMULATOR 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 



UU JLU/ *t 


nnnnnrrn 




nr 




PPPAP 




y u X V / o 


nnnnnPFH 


99Q7 












nnnnnnn^ 

uuuuuuuo 


79Qfi 


nr 


ri \ iADrinL» } 


TNnTrATHP 


^n 


uuxuou 


nnnnnnnA 

U U U U U u u o 


7?Q^ 


nr 


A r lyRANn \ 


TMnirATOP 


ox 






9inn 


nr 


TyPANn ^ 
n V XADnniJ / 


TNnirATnp 




uo xuoo 






nr 




XnUxLn lUK 




nni nRf 


y w u w u o V < 




nr 


Af TAPF411 


TKinTrATOP 


Ot 


001090 


00000007 


2303 


DC 


A(TAPE43) 


INDICATOR 


35 


001094 


00000002 


2304 


DC 


A(NYCHEK) 


INDICATOR 


36 


001093 


00000002 


2305 


DC 


A(NYCHEK) 


INDICATOR 


37 


0C109C 


00000002 


2306 


DC 


A(NYCHEK) 


INDICATOR 


38 


OOlOAO 


00000002 


2307 


DC 


A(NYCHEK) 


INDICATOR 


39 


0010A4 


0000000000008040 


2308 IHDICX 


DC 


X'00000000000080400001 


1 




OOlOAE 


0000000010010000 


2309 


DC 


X'OOOOOOOOIOOIOOOOOOOC 


1' 




0010E8 


0000000000080000 


2310 


DC 


X'OOOOOOOOOOOSOOOOOOOQ 


i» 




00i0C2 


00000et)402000402 


2311 


DC 


X»0000000402C00402010fl 


1* 
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LGC OBJECT CODE ADDRi ADDR2 STMT SOURCE STATEMENT ASM H V 05 22,10 05/07/81 

231^ ^ * 

2315^ BRANCH AND TRANSMIT * 

2316 * * 
2317 



OOlOCC 45F0 0902 00902 
OOlODO 41A5 OOQC OOOOC 
001GD4 50A0 3134 01134 
001008 1658 
OOlODA 0680 

OOIGDC D200 6000 9000 00000 00000 
0010E2 0680 
0010E4 0690 

0010E6 D200 8000 9000 00000 00000 
OOlOEC 9120 9000 00000 
OOiOFO 4710 30E2 010E2 
0010F4 92F0 310D GllOD 
OOl&FS 47F0 GF44 00F44 



2319 BT27 BAL 15,C0NVPQ 

2320 BT27A LA NR1,12(CNTR) 

2321 ST WR1,IR2 

2322 LR CNTR,RP 

2323 BCTR RP,0 

2324 MVC 0(1,RP),0(RQ) 

2325 BT27B BCTR RP,0 

2326 BCTR RQ,0 

2327 MVC 0(1,RP),0(RQ) 

2328 TM 0(Rg),X'20» 

2329 BO BT27B 

2330 MVI SWBB42n,X'F0» 

2331 B TESTBR 



CONVERT P AND Q ADDRESSES 

WR1=INST.C0UNTER+12 

STORE WRl IN IR-2 

INST. COyNTER= P ADDRESS 

RP=RP-1 

MOVE FIRST BYTE FROM Q TO P 

RP=RP-1 

RQ=RQ-1 

MOVE ONE CHARACTER 
IS Q DIGIT FLAGGED 
NO, LOOP 

SET SWITCH IN BRANCH BACK ON 
GO TO TEST BRANCH ADDRESS 



2334 

2335 * * 

2336 ^ BRANCH AND TRANSMIT IMMEDIATE ^ 

2337 * ^ 
2336 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^9^^^ 



OOlOFC 45F0 0906 00906 
001100 4195 0008 OOOOB 
001104 47F0 f&DO OlODO 



2340 BTM17 BAL 15,C0NVP 

2341 LA RQ,11(CNTR) 

2342 B BT27A 



CONVERT P ADDRESS 
Q=RIGHTMOST ADDRESS OF INSTR. 
BRANCH TO BRANCH AND TRANSMIT 
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LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

2345 * * 

2346 « BRANCH BACK ^ 
234/ * * 
2346 * THIS SEQUENCE CONTAINS TUO PROGRAMMED SWITCHES = * 

2349 * ^ 

2350 ^ - IF THE SAVE KEY IS DEPRESSED, A BRANCH IS EXECUTED * 

2351 * " IF SWITCH 'BT27' 'BTM17' IS DEPRESSED AFTER EXECUTION OF A *BT' * 

2352 * INSTRUCTION, THE SEQUENCE ALSO EXECUTES A BRANCH. ^ 

2353 * * 

2354 ^ IF NONE OF THESE CONDITIONS IS FULFILLED, SIMULATION STOPS AND THE * 

2355 * MESSAGE ^^MAR CHK' IS ISSUED. * 

2356 * * 
2357 



001108 


4700 3118 




01116 


2359 


BB42 


BC 


N0P,BB42A 


"SAVE KEY' SWITCH ON, BRANCH 
SNITCH IN BT27 AND BTM17 ON, 
BRANCH 


OOllOC 


4700 3il4 




01124 


2360 
2361 


SWBB42 


BC 


N0P,B842B 


001110 


45F0 00F4 




000F4 


2362 




BAL 


15,MEST0P 


SEND MESSAGE 'NO BRANCH ADDRESS'' 


001114 


C000019D 






2363 




DC 


A(NOBRAD) 


AND STOP SIMULATION 


OOlllS 


5850 08FC 




008FC 


2364 


BB42A 


L 


CNTR,PR1 


LOAD INST. COUNTER WITH PR-1 


OOlllC 


9200 3109 


01109 




2365 




MVI 


BB42+1,X'00' 


SET SWITCH 'SAVE KEY' OFF 


001120 


47F0 uF44 




00F44 


2366 




B 


TESTER 


GO TO TEST BRANCH ADDRESS 


001124 


5850 3134 




01134 


2367 


BB42B 


L 


CNTR,IR2 


LOAD INST. COUNTER WITH IR-2 


001128 


5000 3134 




01134 


2368 




ST 


0,IR2 


CLEAR INTERNAL REGISTER IR-2 


00112C 


9200 310D 


OilOD 




2369 




MVI 


SI4BB42il,K'00* 


SET SWITCH BT27,BTM17 OFF 


001130 


47F0 0F44 




00F44 


2370 




B 


TESTBR 


60 TO TEST BRANCH ADDRESS 



001134 OOOOCOCO 



2372 IR2 DC 

2373 AIF 

2374 .N0DSK8 ANOP 
OOAOO 2375 BNG55 EQU 

2376 .DSKX2 ANOP 



F'O* 

(NOT S.DISK).N0DSK8 
CODERR 



COMMON PART OF SIM20 
NO DISK 



A2SB 
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LOG OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



2378 

2379 ^ ^ 

2380 ^ SECTION 3 * 

2381 * PROGRAM CONTROL OPERATIONS * 

2382 ^ * 
2383 



2385 

2366 ^ * 

2337 ^ SET FLAG * 

2383 ^ * 

2369 * AFTER CONVERSION OF THE P ADDRESS, A FLAG IS SET IN THE P * 

2390 * DIGIT ZONE. THIS IS IMPLEMENTED BY AN 'AND IMMEDIATE' INSTRUCTION ^ 

2391 * WITH 'DF'. * 

2392 ^ ^ 

2393 ^^«^9^i^^^*^^^^^^***^*^5e^^5€^*^^ei$*^*f^*$f*jt)t^jt9**^^*^9t^we*5*^$e^t9e^^^He*^e 



001138 A5F0 0906 
00113C 9^DF 8000 
001140 47F0 G7F6 



00906 2395 SF32 8AL 15,C0NVP 
00000 2396 NI 0(RP),X'DF* 

007F6 2397 B ENTRYl 



CONVERT P ADDRESS 
SET FLAG AT P ADDRESS 
GO TO 'BIR» 



2399 

2400 * 

2401 * 

2402 * 

2403 * 

2404 * 

2405 * 

2406 ^ 

2407 ^ 

2408 ^ 
2409 



CLEAR FLAG AND NO OPERATION 

AFTER CONVERSION OF THE P ADDRESS, AN 'OR IMMEDIATE' INSTRUC- 
TION 14ITH AN 'FO' MASK SETS THE ZONE PART OF THE P DIGIT TO A 

HEXADECIMAL 'F'. 

THE 'N0P41' INSTRUCTION CAUSES A RETURN TO 'BIR' ENTRYl. 



001144 45F0 0906 

001148 96F0 adoo 

00114C 47F0 67F6 



00000 



00906 
007F6 



2411 CF33 
2412 

2413 N0P41 



BAL 

01 

B 



15,C0NVP 
0(RP),X'FO' 
ENTRYl 



CONVERT P ADDRESS 
CLEAR FLAG AT P ADDRESS 
NO OPERATION, 60 TO 'BIR' 



A2SE 
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2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 



HALT 

THIS INSTRUCTION CAUSES A 'HALT' MESSAGE AND THE 1620 ADDRESS OF 
THE 'HALT' TO BE PRINTED ON THE CONSOLE TYPEWRITER • THE SIMULATOR 
THEN WAITS FOR OPERATOR ACTION. 

EACH EVENT CAUSING A 'WAIT FOR OPERATOR ACTION 'MESSAGE GIVES CON- 
TROL TO A SPECIAL ROUTINE THAT SENDS THE PROPER MESSAGE, ALTERS 
THE BRANCH INSTRUCTION OF 'BIR' TO A 'NO OPERATION' AND RETURNS 
TO 'BIR». 



001150 


16A5 






2430 H48 


LR 


WR1,CNTR 


WR1=CNTR 


001152 


1BA6 






2431 


SR 


WR1,MAP0RG 


WR1=WR1-MAP0RG 


001154 


4EA0 


0903 


00908 


2432 


CVD 


WR1,BUFFP 


CONVERT ADDRESS INTO DECIMAL 


001158 


%0F 


C9DF 0G9DF 




2433 


01 


BUFFP+7,X'0F' 


SET F SIGN 


00115C 


F342 


OlAC 09DD OOIAC 


009DD 


2434 


UNPK 


HLT+7(5),BUFFP+5(3) 




001162 


45FG 


00F4 


000F4 


2435 


BAL 


15,MEST0P 


STOP SIMULATION 



00116& 0000 
00116S C00001A5 



2436 



DC A(HLT) 



2438 



AIF (NOT &TRANS).N0TRN2 ADDIT INSTRUCTIONS 



2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 



MOVE FLAG 

AFTER CONVERSION OF THE P AND Q ADDRESSES, THE Q DIGIT ZONE IS 
MOVED TO THE P DIGIT ZONE. THEN, THE Q DIGIT ZONE IS CLEARED BY 
AN 'OR IMMEDIATE' WITH A HEXADECIMAL 'FO' UNLESS THE P AND Q AD- 
DRESSES ARE THE SAME. 

NOTE 'MOVE FLAG' IS A SPECIAL FEATURE FOR 1620 MODEL 1. 



00116C 


45F0 


0902 


00902 


2452 


MF71 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


001170 


D300 


8000 9000 odooo 


00000 


2453 




MVZ 


0(1,RP),0(RQ) 


MOVE FLAG FROM Q TO P 


001176 


43A8 


0000 


00000 


2454 




IC 


WR1,0(RP) 




00117A 


96F0 


9000 00000 




2455 




01 


0(RQ),X'F0' 


AND CLEAR THE FLAG AT Q ADDRESS 


00117E 


42A8 


0000 


00000 


2456 




STC 


WR1,0(RP) 




001162 


47F0 


07F6 


007F6 


2457 




B 


ENTRYl 


GO TO 'BIR' 










2458 




AGO 


.TRNX2 












2459 


.tRNKZ 


ANOP 







A2SB 



1620 SIMULATOR 
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2^62 * * 

2^{63 * SECTION ^ ^ 

2^464 * ARITHMETIC OPERATIONS ^ 

2465 * * 



2469 ^ ^ 

2470 * ADD * 

2471 * ^ 

2472 * THE P AND Q ADDRESSES ARE CONVERTED TO BINARY. THE BINARY VALUE ^ 

2473 ^ OF THE P AND Q ADDRESSES, AND THE P AND Q SIGNS ARE THEN SAVED IN * 

2474 * SIMULATED CORE STORAGE. CONTROL IS GIVEN TO THE 'FIXADD* SUBROU- * 

2475 * TINE. INDICATORS ARE UPDATED BY MEANS OF THE 'INDIC SUBROUTINE. * 

2476 ^ THEN, THE LAST CARRY IS TESTED. * 

2477 ^ ^ 

2478 ^ -IF IT IS ZERO AND THE SWITCH 'AQEND* IS 'ONS THE *ADD' ROUTINE * 

2479 * RETURNS TO THE 'BIR" ENTRY POINT WHICH MAY BE USED FOR INDICATOR * 

2480 » DISPLAY. ^ 

2481 * * 

2482 * -IF THE LAST CARRY IS ONE>OR IF THE Q FIELD HAS NOT BEEN EXHAUST- * 

2483 ^ ED, THE 'ARCHK' SUBROUTINE IS ENTERED. THEN, THE 'ADD' ROUTINE ^ 

2484 * EXITS TO THE 'BIR' ENTRY POINT USED FOR INDICATOR DISPLAY. * 

2485 ^ * 



001166 


45F0 


0902 






00902 


2488 


A21 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


OOilSA 


9200 


31AB 




OllAB 




2439 


ADD6A 


MVI 


ADD4A^1,X'00' 


SET SWITCH OFF 


00113E 


D300 


33A5 


9000 


G13A5 


00000 


2490 


AD05A 


MVZ 


AQSIGN(l),0(Rg) 


SAVE Q SIGN 


001194 


D300 


33A4 


6000 


013A4 


00000 


2491 


ADDIA 


MVZ 


APSIGN(i),0(RP) 


SAVE P SIGN 


00119A 


5060 


09E8 






009E8 


2492 




ST 


RP,INITP 


SAVE P ADDRESS 


00119E 


18A8 










2493 




LR 


WR1,RP 


LOAD WRl = RP 


OOllAO 


13B9 










2494 




LR 


WR2,RQ 


LOAD WR2=RQ 


0011A2 


45F0 


31F3 






011F8 


2495 




BAL 


15,FIXADD 


BRANCH TO FIXADD 


0011A6 


4700 


6000 






00000 


2496 




BC 


NOP,0 
















2497 




AIF 


(NOT &INDEX).N0TIX2 


INDEX INSTRUCTIONS 


OOllAA 


4700 


3D5C 






01D5C 


2493 


ADD4A 


BC 


H0P,BXF 


RETURN SWITCH FOR INDEX INSTRUCT 


OOllAE 


58A0 


09E8 






009E8 


2499 




L 


WR1,INITP 


WR1= P ADDRESS 














2500 




AGO 


.IXX2 
















2501 


.IXX2 


ANOP 






001182 


45F0 


3548 






01546 


2502 




BAL 


15,INDIC 


INDICATOR UPDATING 


0011B6 


46E0 


31BE 






OllBE 


2503 




BCT 


WR5,ADD2A 


TEST IF CARRY 


OOllBA 


47F0 


0E26 






00E26 


2504 


ADD3A 


B 


C24I 


ARITHMETIC CHECK TESTING 


OOllBE 


95F0 


3231 




01231 




2505 


ADD2A 


CLI 


AQENDt1,X'F0' 


IS SWITCH AQEND ON 


001iC2 


4780 


07F6 






007F6 


2506 




BE 


ENTRYO 


YES, BRANCH TO ENTRYO 


0011C6 


47F0 


31BA 






OllBA 


2507 




B 


ADD3A 


NO, GO TO ARITH. CHECK 



A2SB 
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LOC OBJECT CODE ADORl ADDR2 STHT SOURCE STATEHENT 

2510 

2511 * 

2512 ^ 

2513 ^ 
2514 



ASM H y 05 22.10 05/07/81 



ADD IMMEDIATE 



OOllCA 45F0 C906 

oolicE 4195 mm 

0011D2 47F0 316A 



00906 2516 AMll BAL 15,C0NVP 
OOOOB 2517 LA RQ,11(CNTR) 

0118A 2518 B ADD6A 



CONVERT P ADDRESS 
LOAD RQ = CNTR+11 
60 TO ADD 



2521 ^^^^*5€^^^^^^^^5(^5*^5t^(*^9e9e^*9€9e*9f 

2522 * 

2523 ^ 

2524 * 

2525 ^ 

2526 ^ 

2527 ^ 
2526 ^ 
2529 



SUBTRACT 

BOTH THE P AND Q ADDRESSES ARE CONVERTED TO BINARY. THE Q SIGN IS 
SAVED IN 'AQSIGN', THEN INVERTED. THE SEQUENCE FINALLY BRANCHES 
TO THE *ADD* ROUTINE. 



001iD6 45F0 0902 

OOilDA D300 33A5 9000 013A5 
OOllEO 9720 33A5 013A5 
0011E4 9200 31AB OllAB 
0011E8 47F0 3194 



C0902 
00000 



01194 



2531 S22 BAL 15,C0NVPQ 

2532 S22A MVZ AQSIGN(l) ,0(RQ) 

2533 XI AQSIGN,X'20» 

2534 MVI ADD4A+1,X''00' 

2535 B ADDIA 



CONVERT P AND Q ADDRESSES 
INVERT Q SIGN 
GO TO ADD 



2536 ^^^^^^^i*^^^^^^^*^^«fi^^*^^«^^«^^^«^9f5^^^^^t^^**^^^^^^5^9^^3$)^^^«^9^**^^ 

2539 ^ ^ 

2540 ^ SUBTRACT IMMEDIATE ^ 

2541 * . * 

2542 «'^^*^^^^*^^^^*f^^*i^^^^^9^i«^**f^^***^**^*^^^e^9(*9*^»9^^^(^f9^^*^^6^*^^t9f^f*«^9f*9t^ 



OOUEC 45F0 0906 
OOllFO 4195 0008 
0011F4 47F0 31DA 



00906 2544 SM12 BAL 15,C0NVP 
OOOOB 2545 LA RQ,11(CNTR) 

OllDA 2546 B S22A 



CONVERT P ADDRESS 
RQ = CNTR+11 
GO TO SUBTRACT 
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2Sm AIF (S.HODEL NE D.NMODIA FOR MODEL 1 

2549 .NHODIA ANOP 

2550 AIF (&HODEL NE 2).NM0D2 FOR MODEL 2 

2552 ^ * 

2553 * FIXADD SUBROUTINE MODEL 2 * 

2554 ^ * 

2555 ^ THIS SUBROUTINE IS USED BY THE ADO/SUBTRACT AND FLOATING-POINT * 

2556 ^ ADD/SUBTRACT OPERATIONS, IT PERFORMS THE ADDITION AND SUBTRACTION * 

2557 ^ (DIGIT BY DIGIT) OF TWO DATA FIELDS, USING THE SPECIAL TABLES BE- ^ 

2558 * LOU. ^ 

2559 ^ * 

2560 ^ EXITS * 
2561^ THERE ARE TWO EXITS, A NORMAL ONE, AND A SPECIAL ONE USED AFTER * 

2562 ^ COMPLEMENTING. THE SPECIAL EXIT RETURNS TO THE CALLING SEQUENCE ^ 

2563 * * 

2564 * OPERATION ^ 

2565 * THIS SEQUENCE STARTS WITH A TEST OF 'APSIGN' AND 'AQSIGN^ ^ 

2566 ^ IF THESE SIGNS ARE BOTH POSITIVE OR NEGATIVE, CVQ SWITCH IS SET ON * 

2567 * IF NOT CVQ SWITCH IS SET OFF FOR INSERTION OF THE NINES COMPLEM- * 
2563 ^ ENT OF Q DIGIT INTO A WORKING REGISTER. * 

2569 « ¥: 

2570 * THEN, CONTROL IS GIVEN TO THE 'ADDPQ'^ SUBROUTINE TO PROCESS THE * 

2571 ^ FIRST P AND Q DIGITS. * 

2572 * * 

2573 ^ FOR EASE OF UNDERSTANDING, THE 'FIXADD* SUBROUTINE HAS BEEN DI- * 

2574 ^ VIDED INTO FOUR LEVELS = ^ 

2575 * ^ 

2576 ^ LEVEL 1 AQEND - APEND * 



2577 ^ A TEST IS MADE TO DETECT A FLAG INDICATING THE LEFTMOST BOUNDARY ^ 

2576 ^ OF THE Q FIELD. IF THERE IS NO FLAG, THE Q ADDRESS REGISTER IS * 

2579 ^ DECREMENTED BY ONE. IF THERE IS A FLAG, THE Q ADDRESS REGISTER IS ^ 

2560^ LOADED WITH THE ADDRESS OF A DIGIT 'FO'. THEN, SWITCH 'AQEND' IS ^ 

2581 ^ SET ON TO BYPASS THE P FLAG TEST AND DECREMENTING OF THE Q AD- * 



2582 ^ DRESS. ^ 
2563 ^ * 

25B4 * P FIELD TEST - SAME COMMENTS. ^ 
2565 ^ ^ 
2586 ^ ./..•*•. 
2567 ^ * 



A2S8 
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0011F8 9200 
OOilFC B500 
001202 4780 
001206 9200 
00120A 47F0 
00i20E 92F0 



321F 
33A4 
320E 
32ED 
3212 
32ED 



2590 
2591 
2592 
2593 
259^ 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
261^ 
2615 
2616 
2617 
2618 

0121F 2619 
33A5 0i3A4 013A5 2620 
012CE 2621 

012ED 



LEVEL 2 ADDC 

THE BYTE LOCATED AT ADDRESS 'NRl' ( (WHICH MAY BE EQUAL TO THE P 
ADDRESS) IS TESTED FOR A FLAG AND THE PRECEDING ADD RESULT IS 
STORED AT THE ADDRESS OF '14R1' BEFORE THE BRANCH. IF THERE IS NO 
FLAG, 'WRl' IS DECREMENTED BY 1 AND CONTROL IS GIVEN BACK TO LE- 
VEL 1. IF THERE IS A FLAG, THE ADD LOOP IS TERMINATED AND CONT- 
ROL IS GIVEN TO LEVEL 3. 

LEVEL 3 ADDA 

THE P ADDRESS REGISTER IS RESTORED TO ITS INITIAL VALUE. IF COMPL- 
EMENTING IS REQUIRED , A TEST IS MADE ON THE LAST CARRY. 
-IF THE LAST CARRY IS ONE, IT IS ADDED TO THE RESULTING P FIELD 
WHICH BEGINS AT THE RIGHTMOST BOUNDARY. THIS OPERATION IS REPEAT- 
ED UNTIL EXHAUSTION OF THE CARRY. THE P SIGN IS RESTORED AND THE 
'FIXADD' SUBROUTINE EXITS TO THE CALLING SEQUENCE. 
-IF THE LAST CARRY IS ZERO, CONTROL IS GIVEN TO THE RECOMPLEMENT- 
ING LOOP WHICH SCANS THE RESULTING P FIELD AND PROCEEDS TO SYSTE- 
MATIC NINES COMPLEMENTING .THE P FLAG IS RESET AND A TEST IS DONE 
ON THE VALUE OF RESULT, IF 2ER0,P SIGN IS RESTORED, IF DIFFERENT 
Q SIGN IS GIVEN TO P FIELD, AND FIXADD EXITS TO THE CALLING SEQ. 
-IF COMPLEMENTING IS NOT REQUIRED, THE P FLAG IS RESET >AND P SIGN 
IS RESTORED IN THE RESULTING FIELD AND FIXADD EXITS TO THE CALL- 
ING SEQUENCE OF THE FOLLOWING INSTRUCTION, 



012ED 



2622 
01212 2623 



2624 



FIXADD MVI ADD5+1,X*00' 

CLC APSIGN(1),AQSIGN 
BE ADD3 

ADDl MVI CVQ+1,X'00' 
B ADD4 

AD03 MVI CVQ+1,X'F0» 



SET SWITCH ADDS OFF 
COMPARE P AND Q SIGNS 
EQUAL BRANCH 

SET SWITCH FOR COMPLEMENTATION 
SET SWITCH OFF 



001212 


920Q 


323F 


0123F 




2626 


ADD4 


MVI 


APEND+1,X'00' 


SET SWITCH APEND OFF 


001216 


9200 


3231 


01231 




2627 




MVI 


AQEND+1,X'00» 


SET SWITCH AQEND OFF 


00121A 


98CE 


34D8 




014D8 


2628 




LM 


WR3,WR5,MCLEAR 


SET WR3,WR4,WR5=0 


0G121E 


4700 


322C 




0122C 


2629 


ADDS 


BC 


NOP, ADDF 


SWITCH FOR USE OF FLOATING 


001222 


4510 


32E8 




012E8 


2630 




BAL 


R1,ADDPQ 


BRANCH TO ADDPQ 


001226 


0680 








2631 




BCTR 


RP,0 


RP=RP-1 


001228 


06A0 








2632 




BCTR 


WR1,0 


WR1=WR1-1 


00122A 


06B0 








2633 




BCTR 


WR2,0 


WR2=WR2-1 


00122C 


4510 


32E8 




012E8 


2634 


ADDF 


BAL 


R1,ADDPQ 


BRANCH TO ADDPQ 


001230 


4700 


323E 




0123E 


2635 


AQEND 


BC 


NOP, APEND 


SWITCH AQEND 


001234 


9120 


BOOO 


00000 




2636 




TM 


0(WR2),X'20' 


IS Q DIGIT FLAGGED 


001238 


4750 


32D0 




012D0 


2637 




BZ 


ADDB 


YES, GO TO SET AQEND ON 


00123C 


06B0 








2638 




BCTR 


WR2,0 


N0,WR2=WR2-1 


00123E 


4700 


324C 




0124C 


2639 


APEND 


BC 


NOP, ADDC 


SWITCH APEND 


001242 


9120 


8000 


00000 




2640 




TM 


0(RP),X'20' 


IS P FIELD FLAGGED 


001246 


4780 


32DC 




012DC 


2641 




BZ 


ADDE 


YES, GO TO SET SWITCH APEND 


00124A 


0680 








2642 




BCTR 


RP,0 


N0,RP=RP-1 


00124C 


9120 


AOOO 


00000 




2643 


ADDC 


TM 


0(WR1),X»20» 


IS P FIELD FLAGGED 



A2S3 



1620 SIMULATOR 
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001250 


4780 


3258 






A "1 OCQ 

OlZjtQ 


O/ A A 

2644 


dZ 


A nnA 
ADDA 


00125*^ 


HbAO 


3ZZC 






UlZZC 


2645 


DL i 


IID1 Anne 


001258 




OVto 






A AQCQ 


264/ AuUA 


i 

L 


on TWTTD 










A1 otrri 




'5//.Q 

<cb4o 


PI T 

LLi 


Plin 4.1 VICAf 




4/ou 








A1 oyu 




DC 


Annp 
HUUb 


001264 


18C8 










2650 


LR 


WR3,RP 


A A 1 O/ £. 


A / C A 

stto 






ooboo 


U1^74 


ibt?l 


dL i 


wKd >HUUn 


00126A 


9109 


cm 






2652 ADDM 


TM 


0(WR3),K'09* 


A A 1 o/ r* 
0Ul2bL 


4/10 


3/:oC 






A1 OO^* 


2653 


DP 


IjHuDL 


A A ^ '>~?'5 


43DC 


A A A A 
UUUU 






A A A A A 
UUUUU 




TP 

XL 


l!DA A<'nDO> 


A A 1 O"?/" 

OulZ/b 


4lDU 


A AAI 

UGOi 






A A A A 1 
OOUOl 


2655 


1 A 

LA 


1 !DA t r'J IHA ^ 

NK4>Xl.Hf<4} 


A A1 




A A A A 






A A AAA 
UUUUU 


^b5b 


CTP 


HDA A^HDO^ 

NK4 > UlWKo J 


A A1 o*5ir 


A A 


O A A A 


15 *^ A A 


A A A A A 


A1 OA A 
Ui Jfi4 






Ul X>Kr ^ jrtroXbN 


A A 1 O Q /i 

0012oH 


94Ur 


A A A A 

AOuU 




A A A A A 

UOOOU 




2658 


NX 


A ID1 % V f nc f 


A Ai ■Odd 


4/ r r 


A AA/i 






AAA AA 

UUUU4 


2b37 


D 

o 


4vX5 J 




OOC A 


PA A A 




A A AftA 
UUUUU 




Zbbl hUUL 


nvx 


UlWKaJjA rU 




ft 

4bLU 








A1 O/ A 

UX^bB 




DPT 




A A 1 o n /» 

U01Z94 


/» 1 ETC 

4lEt 


ft A A i 






A A A A 1 
OUUOi 


2663 ADun 


1 A 

LA 


f IDT 1 <'! IDC ^ 


A A1 Oft£5 


fVf* A A 


LuUu 


'30/' A 

3<Lb4 


A A AAA 


A 1 O/ A 

Ui^b4 


Zbb4 


1 K 


Ai'1 flDIi^ ATADwl«.' 


A A 5 o o r' 

0U129E 


19AC 










2665 


PO 

CR 


NRi>WR3 


A A "t OA A 

OulZAO 


4/50 


32A8 






012A3 


2666 


BE 


ADDN 


A A 1 O A /• 


4bCU 


3Zyc 






01296 


^66/ 


DPT 


MOO ArinUiA 
HR3)ADDnT4 


0012A8 


f 1 A r\ r* 


f* A A A 

COuO 




00000 




2668 ADUN 


11 T 

NI 


A^!in^3% v»rvcf 


0012AC 


18C6 










2669 


LR 


NR3,RP 


A A -t A.C" 

OOl^AE 


rn AP 

910r 


1* A A A 

cooo 




00000 




O/ "TA AHfVT 

26/0 ADUT 


In 




0012B2 


4770 








012C8 


2671 


BC 


7,ADDQS 


A A i t>/ 

OUlZDb 


19AC 










iCb//. 


PO 


WKl>WK3 


A A t OD-'S 


4/oU 








012C0 


Zb/3 


ot 


HuUrD 


A A 1 '3 D P 


fit Cf\ 

4bL0 








012AE 




DPT 


WK3>fiuU 1 


A A1 or ft 


DtJ A A 


S A Art 




00000 013A4 


^b/5 HuUri) 


nV(L 


Ul X >Kr J jftroXuN 


A Af 'jr-/ 


il/rr 












DD 


Xd 


UUX,£.LD 


n'3 AA 

3 V u 


OUUU 




00000 


dl3AS 








0012CE 


07FF 










2678 


BR 


15 


0012D0 


92F0 


3231 




81231 




2680 ADDB 


MVI 


AQEND+1,X'F0» 


00120^f 


4100 


3374 






01374 


2661 


LA 


WR2>ATAB2 


001200 


47F0 


32SE 






0123E 


2682 


B 


APENO 


0012DC 


92F0 


323F 




0123F 




2683 ADDE 


MVI 


APEND+1,X'F0* 


0012E0 


4180 


3374 






01374 


2684 


LA 


RP,ATAB2 


0012E4 


47F0 


324C 






0124C 


2665 


B 


ADDC 
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YES, GO TO LAST CARRY LOOP 
N0,WR1=WR1-1 AND LOOP 



RESTORE P ADDRESS 

NAS COMPLEMENTATION REQUIRED 

NO, GO TO RESTORE P SIGN 

YES,WR3=RP 

TEST IF LAST CARRY 

ONE, IS P NUMERIC=9 

IF EQUAL NORMALISE 

INSERT 0(k'R3) IN WR4 

ADD CARRY 

AND STORE RESULT 

RESTORE P SIGN 

RESET P FLAG 

RETURN TO CALLING SEQUENCE + 4 



NORMALIZE RESULT 

HR3=WR3-1, AND LOOP 

SET CARRY TO INITIAL VALUE 

COMPLEMENT P DIGIT 

IS NR3=WR1 

YES, RESTORE RQ 

NO, LOOP 

RESET P FLAG 

NR3 = RP 

TEST IF P NUMERIC = 0 
IF NOT, BRANCH 
IS WR3 = WRl 
YES, EXIT 
NO, LOOP 

MOVE APSIGN TO P SIGN 
RETURN TO CALLING SEQUENCE 
MOVE AQSIGN TO P SIGN 
RETURN TO CALLING SEQUENCE 



SET SWITCH AQEND ON 
WR2=ADDRESS OF A TO' DIGIT 



SET SNITCH APEND ON 
RP=ADDRESS OF A »F0» 



A2SB 1620 5IHULAT0R PAGE 7^ 

LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22,10 05/07/61 

2688 ^ * 

2669 ^ LEVEL 4 ADDPQ * 

2690 * THE BINARY EQUIVALENT OF THE Q DIGIT IS DIRECTLY OBTAINED, OR ITS * 

2691 » NINES COHPLEHENT FROH ATAB3 IF COHPLEHENTATION REQUIRED, AND INS- * 

2692 ^ ERTED INTO A WORKING REGISTER. THE BINARY EQUIVALENT OF THE P DI- * 

2693 ^ GIT IS OBTAINED FROM TABLE MTABl AND INSERTED INTO A SECOND WOR- ^ 
2694^ KING REGISTER. * 

2695 ^ THE FIRST WORKING REGISTER IS ADDED TO THE SECOND ONE AND THE RE- * 

2696 * SULT IS ADDED TO A POSSIBLE CARRY OCCURRING IN THE PRECEDING OPER- ^ 

2697 ^ ATION.A TEST IS DONE TO DETECT A POSSIBLE CARRY AND TO STORE IT * 

2698 ^ IN AN APPROPRIATE REGISTER. THEN THE NUMERIC OF THE RESULT IS MO - * 

2699 * VED TO THE ADDRESS OF THE P DIGIT. ^ 

2700 * ^ 

2701 



0012E8 


43DB 


0000 


00000 


2703 


ADDPQ 


IC 


WR4,0(WR2) 


INSERT BINARY . 




0012EC 


4700 


32F4 


0i2F4 


2704 


cvq 


BC 


NOP, CVQ +8 


SWITCH FOR COMPLEMENTATION 




0012F0 


A3DD 


3264 


01264 


2705 




IC 


NR4,ATAB3-208(WR4) 


.EQUIVALENT OF Q 




0012F4 


5^'iDO 


34D4 


01404 


2706 


ADDPQX 


N 


NR4,CUT2 


CUT ZONE OF Q DIGIT 




0012F8 


43CA 


0000 


00000 


2707 




IC 


WR3,0(NR1) 


INSERT BINARY . 




0012FC 


43CC 


3434 


01434 


2708 




IC 


HR3,HTAB1-208(NR3) 


.EQUIVALENT OF P 




001300 


lACD 






2709 




AR 


14R3,MR4 


ADD DIGITS 




001302 


lACE 






2710 




AR 


WR3,WR5 


ADD CARRY 




00130^ 


16E0 






2711 




LR 


i4R5,0 


RESTORE CARRY 




001306 


4iD0 


0009 


00009 


2712 




LA 


WR4,9 






OOiSOA 


19CD 






2713 




CR 


NR3,14R4 


TEST IF RESULT LOWER THAN 9 




00130C 


47D0 


3318 


01318 


2714 




BC 


13,ADDZ 


YES, BRANCH 




001310 


41E0 


0001 


00001 


2715 




LA 


WR5,1 


NO, SET CARRY 




0013iA 


18C0 






2716 




SR 


WR3,WR4 


SUBTRACT 10 




001316 


06C0 






2717 




BCTR 


WR3,0 






001318 


42C0 


0F58 


00F58 


2718 


ADD2 


STC 


WR3,STC 


MOVE NUMERIC . 




00131C 


DlOO 


AO 00 0F58 DOOdO 00F58 


2719 




MVN 


0(1,WR1),STC 


•TO RESULT 




001322 


07Fi 






2720 
2721 


.NM0D2 


BR 

ANOP 


Rl 


9e 





A2S8 
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LOC OBJECT CODE ADDRl A0Dk2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

2724 * ^ 

2725 ^ TABLES FOR 'FIXADD' SUBROUTINE * 

2726 * ^ 

2727 





uUUrix fxi_(C.uO<.Ot*TD 


979Q ATARI 


nr 






00132E 


000A26322832 


2730 


DC 


X»000A28322832* 


ID 


001334 


F9FSF7F6F5F4F3F2 


2731 ATAB3 


DC 


X'F9F8F7F6F5F4F3F2F1F0' 


COMPLEMENT TABLE 


00133E 


F9F8F5F4F5F4 


2732 


DC 


X'F9F8F5F4F5F4' 


ID 


001344 


000A141E28323C46 


2733 


DC 


X»000A141E23323C46505A* 


STABLE FOR lO^P 


00134E 


00OA28322632 


2734 


DC 


X'000A28322632' 


ID 


001354 


F9F8F7F6F5F4F3F2 


2735 


DC 


X'F9F6F7F6F5F4F3F2F1F0' 




00135E 


F9F8F5F4F5F4 


2736 


DC 


X'F9F8F5F4F5F4' 




001364 


0101010101010101 


2737 ACARRY 


DC 


X»01010101010101010101» 


*^*TABLE FOR CARRY 


00i36E 


010101010101 


2738 


DC 


X'OIOIOIOIOIOI' 


ID 


001374 


F0F1F2F3F4F5F6F7 


2739 ATAB2 


DC 


X»F0F1F2F3F4F5F6F7F8F9» 


NORMAL TABLE 


00137E 


F0F1F4F5F4F5 


2740 


DC 


X'F0F1F4F5F4F5' 


ID 


001334 


OOOOODOOOOOOOOOO 


2741 


DC 


X'OOOOOOOOOOOOOOOOOOOO* 


TABLE FOR CARRY 


00136E 


010101010101 


2742 


DC 


X'OIOIOIOIOIOI* 


ID 


001394 


F0F1F2F5F4F5F6F7 


2743 


DC 


X'F0F1F2F3F4F5F6F7F8F9' 




00139E 


F0F1F4F5F4F5 


2744 


DC 


X'F0F1F4F5F4F5» 




0013A4 


00 


2745 APSIGN 


DC 


X'OO* 


P SIGN 


0013A5 


00 


2746 AQSIGN 


DC 


X'OO' 


Q SIGN 



2748 * 



NOTE = IN SUBTRACT OPERATION Q SIGN TAKES OPPOSITE VALUE 



A2SB 1620 SIMULATOR 

LOC OBJECT CODE ADDRl ADDR2 
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STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 



2750 ^^M^^€*9^^^9e*5t5^^^ti€^t^€J^3^^^^^^%^^^^^*^i6^«$^^e9t5^^^9f^^**^*^^*^t^^^*9t^6*eit^*^tie 



2751 * * 

2752 * MULTIPLY ^ 

2753 * * 
275^ * THE P AND Q ADDRESSES ARE CONVERTED TO BINARY. THEN, THE 'MULT» * 

2755 * SUBROUTINE IS ENTERED, FOLLOWED BY THE 'INDIC SUBROUTINE. AFTER ^ 

2756 * INDICATOR UPDATING, EXIT IS TO THE 'BIR' ENTRY POINT WHICH MAY BE ^ 

2757 ^ USED FOR INDICATOR DISPLAY (SEE »ADD* ROUTINE). * 

2758 ^ * 



0013A6 ^5F0 0902 
0013AA A5F0 33C^ 
0013AE i88A 
0013S0 ^5F0 3548 
001384 47F0 07F6 



00902 2761 M23 BAL 15,C0NVPQ 

013C4 2762 M23A BAL 15,MULT 

2763 LR RP,WR1 

01548 2764 BAL 15,INDIC 

007F6 2765 B ENTRYO 

00570 2766 FDIC EQU MASKR6 



CONVERT P AND Q ADDRESSES 
MULTIPLY P FIELD BY Q FIELD 
LOAD RP = WRl (ADDRESS 99) 
INDICATOR UPDATING 
INTERPRETIVE LOOP (ENTRYO) 



2769 ^^^^*^^^^t*^5^^*^(^^^^^5^*^^**^^M^7^^9t^ie9f^^^9t9^9^^^9f^f^t9tit^f**$e9t9^9^**9^^^ 

2770 * ^ 
2771^ MULTIPLY IMMEDIATE * 
2772^ * 
2773 



001303 45F0 0906 00906 2775 MM13 BAL 15,C0NVP CONVERT P ADDRESS 

00138C 4195 0008 OOOOB 2776 LA RQ,11(CNTR) LOAD RQ WITH CNTR + 11 

0013C0 47F0 3m 0i3AA 2777 B M23A BRANCH TO MULTIPLY 



A2SB 1620 5IHULAT0R 
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LOG OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

2780 « ^ 

2781 * 'HULT' SUBROUTINE * 
2762 * ^ 

2783 * FUNCTION ^ 

2784 * THIS SUBROUTINE IS USED BY FIXED-POINT AND FLOATING-POINT MULTIPLY * 

2785 * OPERATIONS. ^ 

2787 * * 

2788 * * 

2789 ^ OPERATION * 

2790 * POSITIONS 80 TO 99 (PRODUCT AREA) ARE FIRST CLEARED. THE P SIGN ^ 

2791 ^ AND THE P AND Q ADDRESSES ARE SAVED. THE MULTIPLICATION LOOP ^ 

2792 ^ USES TWO SCANNERS. THE FIRST ONE POINTS TO THE RIGHTMOST ADDRESS * 

2793 * OF THE PARTIAL PRODUCT AND SHIFTS TO THE LEFT EACH TIME THE Q AD- * 

2794 * DRESS IS DECREMENTED BY 1. THE SECOND SCANNER POINTS TO EACH PAR- ^ 

2795 « TIAL PRODUCT FORMED BY THE ADDITION OF THE P FIELD DIGITS MULTI- * 

2796 * PLIED BY A GIVEN Q DIGIT. THE BINARY EQUIVALENT OF THE P DIGIT * 

2797 ^ MULTIPLIED BY 10 IS USED AS AN ADDRESS FOR THE MULTIPLY TABLE. * 

2798 * (MAP ORIGIN f 100 -f lOXQ). THIS BASE ADDRESS REMAINS CONSTANT * 

2799 ^ DURING SCANNING OF THE P FIELD. THE TMO DIGITS RESULTING FROM EACH ^ 

2800 ^ DIGIT-BY-DIGIT HULTIPLICATION ARE OBTAINED BY ADDING THE BINARY * 
2601 * EQUIVALENT OF THE P DIGIT TO THIS BASE ADDRESS. IF A CARRY OCCURS ^ 

2802 * THIS IS CONSIDERED IN EACH PARTIAL PRODUCT. * 

2803 * ^ 
2804^ AN EXTERNAL LOOP IS USED IN ORDER TO SCAN THE Q FIELD UNTIL * 
2605 * A FLAG OTHER THAN A SIGN FLAG IS ENCOUNTERED. THIS LOOP INCLUDES * 

2806 * A SECOND SMALLER LOOP SCANNING THE P FIELD UNTIL DETECTION OF A * 

2807 ^ FLAG. CARRIES RECURRING OVER THE WHOLE PRODUCT AREA ARE TAKEN IN- * 

2808 * TO ACCOUNT. * 

2809 « * 

2810 ^ WHEN THE MULTIPLY LOOP IS TERMINATED, THE LEFTMOST FLAG IS STORED * 

2811 * AND THE RESULT SIGN IS COMPUTED AND STORED BEFORE EXIT TO THE * 
2612* CALLING SEQUENCE. * 
2813 * * 
2614 ^^9c^^^^^^^^^^^^^^«^^^^^^^^^^^^^^^^^^^^^^^%^^%^^^^*^^^«%x^«^9f^^ 



0013C4 


92F0 


6050 




00050 




2816 


MULT 


MVI 


80(MAPORG),X'F0* 


CLEAR PRODUCT AREA 


0013C8 


D212 


6051 


6050 


00051 


00050 


2817 




MVC 


61 (19 ,HAP0RG ) ,60 (MAPORG ) 


00i3CE 


D300 


33A4 


8000 


013A4 


OOCOO 


2818 




MVZ 


APSIGN(1),0(RP) 


SAVE P SIGN 


0013D4 


96F0 


8000 




OOGOO 




2819 




01 


0(RP),X'F0' 


DELETE P SIGN 


0013D8 


9089 


09E8 






009E8 


2820 




STH 


RP,RQ,INITP 


SAVE RP AND RQ 


0013DC 


50F0 


34D0 






014D0 


2821 




ST 


15, REGIS 


SAVE RETURN ADDRESS 


0013E0 


1810 










2822 




LR 


R1,0 


CLEAR REGISTER 1 


0013E2 


4126 


0063 






00063 


2823 




LA 


R2,99(MAP0R6) 


LOAD R2 WITH ADDRESS OF CORE 














2624 








STORAGE LOCATION 99 


0013E6 


i8A2 










2826 


MULTF 


LR 


WRi,R2 


LOAD WRl WITH REGISTER 2 


0013E6 


98CF 


34D8 






014D8 


2827 




LM 


WR3,WR6,MCLEAR 


CLEAR 4 WORKING REGISTERS 


0013EC 


43C9 


0000 






00000 


2828 




IC 


WR3,0(RQ) 


INSERT Q DIGIT IN WR3 


C013F0 


43CC 


3424 






01424 


2629 




IC 


WR3,MQTAB-208(WR3) 


FORM ADDRESS OF 


0013F4 


41C6 


COOO 






00000 


2630 




LA 


WR3,0(MAPORG,WR3) 


MULTIPLY TABLE 



00i3F8 16BA 



2832 MULTD LR 



WR2,WR1 



LOAD SCANNER WR2 = WRl 



A2SB 1620 SIMULATOR 



f or 


OBJECT CODE 


ADORI 


ADDR2 




43D6 


0000 




nnnno 




43DD 


3254 








431D 


COOO 




nnnnn 


U V JL T u O 


5610 


34F0 




ni 6Fn 

UXti U 




43FB 


0000 




nnnnn 




43FF 


3434 




ni6i4 


U w i, n i. it, 


lAlF 










lAlE 








nni<5i A 


4311 


3444 




ft1666 

UXttt 


V U XT .lii 


5410 


34EC 




ni6Fr 

Ux^u^ 




43Ei 


3294 




UXCi 7T 




*tO XX 






ni?Aii 

vXtrtT 


001426 


4218 


0000 




00000 


0C142A 


0600 








V V X"«» w 


431D 


COOl 




00001 


U V X T w 


5610 


34F0 




014F0 


Ui/ XT 


4311 


3434 




01434 


t/ V x^ 


43FB 


0000 




QOQQO 

U U v V 


nni4ir 

UUX^*}<U 


43FF 


3434 




ni4i4 

UX~»J" 




lAlF 








nni 


lAlE 








nni664 

UUxnl'T' 


4311 


3534 




nm^4 

UxP j*t 


nni 

UUX*i*tO 


HuElx 


3996 




ni 


0014^jC 


4311 


3iA4 




012A4 


001450 


421B 


0000 




00000 


nni 


12EE 








nni 6*=^ A 


4760 


3468 




UXTDO 


u u XT 










00145C 


431B 


0000 




00000 


0014SD 


4311 


3434 




01434 




47F0 


3442 




01442 


nni6^,f^ 


9120 


8000 


fiMftn 

uuy uu 






4730 


3476 




ni47A 

UX"r 0 


nni 67n 

U U Xt/ w 


0680 










46A0 


33F8 




ni ^FR 


001476 


9120 


9000 






00147A 


4710 


34B6 




014B6 


00147E 


5990 


09EC 




009EC 


001482 


4780 


34B6 




014B6 


001486 


94DF 


BOOO 


00000 

V V V V V 




00146A 


41A6 


0063 




00063 


00148E 


5060 


0570 




00570 


001492 


9669 


09E8 




009E8 


001496 


D300 


6000 33A4 


00000 


013A4 


00149C 


9120 


8000 


00000 




0014A0 


4710 


34C0 




014C0 


0014A4 


9120 


9000 


00080 




0014A3 


4710 


34C8 




014C8 



STHT SOURCE STATEMENT 



2833 


IC 




'?R^6 


IC 


l4R4.ATARl-7nR(UR4^ 




Tf 

XVr 






0 


R1 »RFI Afi 




Tf 

Xw 






TC 

Xw 


UR6 •HTAB1-2Q8(UR6 ) 

riiNO >i t 1 nux CSf\J\rit\v / 




nts 


R1 .URA 
r»X >ri[\0 


7R4n 

C.t>TU 


AR 


J?1 .UR*^ 

r\X >rii\J» 




Tf* 

Xv> 


P1 MTAR7-74nfR1 


i?fl47 

C V) ~ (6. 


N 


R1 .RCI FAR 


2843 


IC 


WR5,ACARRY-208(R1) 


2844 


IC 


R1,ATAB2-208(R1) 


2645 


STC 




2846 


BCTR 


WR2>0 


2647 


IC 


R1*1(WR4,WR3) 


2648 


0 


Rl<iRFL AG 


2849 


IC 


Rl,HTABi-208(Rl) 


2650 


IC 


14R6,0(WR2) 


7651 

£.\JJ X 


IC 

Xw 


WR6 ,HTAB1-2QB(UR6 ) 




AR 


R1 M^lk 


7P^mi Mill TR 
fcO nut. 1 D 


AP 


f\X J Hf\-I 


2855 


IC 


R1,MTAB2(R1) 


2856 


IC 


WR5,ACARRy-208(Rl) 


7S57 


Tf 
xv> 


PI .ATAR7-7nBf R1 ) 


7R^R 


^Tr 


R1 .nfUR7) 

iSX s U vrirvt. / 




LTR 


UR^,yR^ 


2860 


B2 


MULTA 


2861 


BCTR 


WR2,0 


7RA7 


TC 


R1 *n(UR7) 




Tf 
xv# 


R1 *HTAR1-7nflfR1 ) 

i\X>iifr1UX C<Uw\r\X/ 


2864 


B 


MULTB 


2866 HIJLTA 


TM 
III 








Mill Tf 


2666 


BCTR 


RPjO 


2869 


BCT 


URi ^HULTD 

rir\X>iivJu. lb* 


2871 HULTC 


TM 




2672 


BO 


HULTE 


2673 


C 


RQ»INITO 


2674 


BE 


HULTE 


2875 


NI 


0(WR2),X»DF' 


2876 


LA 


WR1,99(HAP0RG) 


2877 


ST 


RP,FDIC 


2878 


LM 


RP,RQ,INITP 


2879 


MVZ 


0(1,RP),APSIGN 


2880 


TM 


0(RP),X'20» 


2681 


BO 


MULTl 


26B2 


TM 


0(RQ),X''20» 


2683 


BO 


HULT2 
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ASM H V 05 22,10 05/07/81 

INSERT BINARY 

EQUIVALENT OF 10*P 

GET FIRST DIGIT OF RESULT 

RESET FLAG V1L2 

INSERT PRODUCT AREA DIGIT 

GET ITS BINARY EQUIVALENT 

ADD THE TWO DIGITS 

ADD CARRY 

CLEAR CARRY (IF ANY) 

SET NEW CARRY (IF ANY) 

NORMALIZE RESULT 

STORE RESULT IN PRODUCT AREA 

GET 2ND DIGIT OF RESULT 

RESET FLAG V1L2 

INSERT PRODUCT AREA DIGIT 

INSERT PRODUCT AREA DIGIT 

GET ITS BINARY EQUIVALENT 

ADD TWO DIGITS 

ADD CARRY 

SET NEW CARRY (IF ANY) 

NORMALIZE RESULT 

STORE IT IN PRODUCT AREA 

TEST LAST CARRY 

IF NONE, BRANCH 

9f 

INSERT FOLLOWING DIGIT 
GET ITS BINARY EQUIVALENT 

IS P DIGIT FLAGGED 
YES, BRANCH 
N0,RP=RP-1 
WR1=WR1-1 AND LOOP 

IS Q DIGIT FLAGGED 
NO, BRANCH 

YES, IS RQ = INITIAL VALUE 
YES, BRANCH 

NO, SET FLAG ON PRODUCT AREA 

LOAD WR1=ADDR, OF PROD, AREA 

SAVE RP (FHUL) 

RESTORE P AND QADDRESSES 

RESTORE P SIGN 

IS P FIELD POSITIVE 

YES, TEST Q SIGN 

NO, IS Q FIELD POSITIVE 

YES, SET SIGN 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



OOl^AC %F0 AGOO 
0014B0 56F0 34D0 
G0i4B4 07FF 



00000 



014D0 



2885 MULT3 

2886 MULT4 
2867 



01 
L 

BR 



0(NR1),X'F0'' 
15, REGIS 
15 



SET + SIGN IN PROD. AREA 
RESTORE RETURN ADDR, 
RETURN TO CALLER 



0014B6 5880 09E8 009E6 2889 MULTE L RP,INITP 

0014BA 0620 2890 BCTR R2,0 

0014BC 4690 33E6 013E6 2891 BCT RQ,MULTF 

0014CO 9120 9000 00000 2692 MULTl TM 0(RQ),X'20' 

0014C4 4710 34AC 014AC 2693 BO MULT3 

0014C8 94DF AOOO 00000 2694 MULT2 NI 0(WR1),X'DF' 

0014CC 47F0 34B0 014B0 2895 B MULT4 



RESTORE P ADDRESS 

R2=R2-1 

RQ=RQ-1,L00P 

IS Q FIELD POSITIVE 

YES, GO TO SET + SIGN 

NO, SET MINUS SIGN 



001400 

0014D4 OOOOOOQF 

001408 OOOODOOOOCOOOGOO 



2897 REGIS 
2698 CUT2 
2899 MCLEAR 



DS 
DC 
DC 



X'OOOOOOOF" 
5F'0» 



0014EC OOOOOOFF 
0014F0 OOOOOOFO 



2901 RCLEAR 

2902 RFLAG 



DC 
DC 



X'OOOOOOFF* 
X'OOOOOOFO' 



V1L2 



2904 ^^^^^^^^^^^^i^^^^^^^^^^^^^^^^^^^^^^x^%^^^^^^%^^^^^^^^^9e^9f^9(9f^%d^ 

2905 * * 

2906 * TABLES FOR »MULT' SUBROUTINE * 

2907 ^ * 



0014F4 


6466686A6CCaCACC 


2910 


MQTAB 


DC 


X'6466666A6CC8CACC' 




0014FC 


CEDn64666CC86CC3 


2911 




DC 


X'CED064666CC66CC8' 




001504 


C001020304050607 


2912 


MTABi 


DC 


X'0001020304050607' 




oolsec 


0809000104050405 


2913 




DC 


X'0809000104050405» 




001514 


6466656A6CC6CACC 


2914 




DC 


X'6466686A6CC8CACC' 




00151C 


CED064666CC66CC8 


2915 




DC 


X'CED064666CC86CC8' 




001524 


0001020304050607 


2916 




DC 


X»0001020304050607' 




00152C 


0809000104050405 


2917 




DC 


X'0309000104050405' 




001534 


F0F1F2F3F4F5F6F7 


2918 


MTAB2 


DC 


X »F0F1F2F3F4F5F6F7F6F9 ' 




00153E 


DaDlD2b3D4D5D6D7 


2919 




DC 


X * D0D1D2D 3b4D5D6b7D8D9 » 
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LOC OBJECT CODE ADDRi ADDR2 5THT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

2922 ^ * 

2923* 'INDIC SUBROUTINE * 

292^ * * 

2925 ^ FUNCTION * 

292S * THIS SUBROUTINE IS, IN GENERAL, USED BY BY ARITHMETIC AND FLOAT- * 

2927 * ING POINT INSTRUCTIONS AND UPDATES THE HIGH/POSITIVE AND EQUAL/ * 

2928^ ZERO INDICATORS UPON COMPLETION OF THE OPERATION. * 

2929 ^ ^ 

2930 ^ OPERATION * 

2931 * THIS SUBROUTINE STARTS NITH A PRELIMINARY SCAN OF THE P FIELD FOR * 

2932 * ZERO RESULT. IF THE SCAN IS ENTIRELY SUCCESSFUL, THE SIMULATED * 
2933* EQUAL/ZERO INDICATOR IS SET ON, AND THE SIMULATED HIGH/POSITIVE * 

2934 * INDICATOR IS SET OFF. IF A NON-ZERO DIGIT IS ENCOUNTERED DURING * 

2935 * THE SCAN, THE SIMULATED EQUAL/ZERO INDICATOR IS SET OFF, AND THE * 

2936 * SIMULATED HIGH/POSITIVE INDICATOR IS SET ON OR OFF, DEPENDING * 
2937* ON THE PRECEDING SIGN TEST OF THE P FIELD. THEN, THIS SEQUENCE * 

2938 * EXITS TO THE CALLING SUBROUTINE. * 

2939 * * 
2940 



001546 


910F 


AOOO 


00000 




2942 


INDIC 


TM 


0(MR1),X'0F» 


IS FIRST WRl NUMERIC = 0 


00154t 


4750 


3568 




01568 


2943 




BC 


B0H,IND2 


NO, BRANCH 


001555 


06A0 








2944 


INDl 


BCTR 


WR1,0 


YES, WRl = WRl - 1 


001552 


910F 


AOOO 


00000 




2945 




TM 


0(NR1),K'0F' 


IS CURRENT WRl NUMERIC = l 


001556 


4750 


3568 




01568 


2946 




BC 


B0M,IND2 


NO, BRANCH 


00155A 


9120 


AOOO 


00000 




2947 




TM 


0(NR1),X'20' 


YES, IS WRl DIGIT FLAGGED 


00155E 


4710 


3550 




01550 


2948 




BO 


INDl 


NO, LOOP 

YES, PUT EZ=ON, HP=OFF 


001562 


9201 


0003 


00003 




2949 




MVI 


HPEZ,X'01» 


001566 


07FF 








2950 




BR 


15 


RETURN TO CALLER 


001566 


9120 


8000 


00000 




2951 


IND2 


TM 


0(RP),X'20* 


IS P FIELD POSITIVE 


00156C 


4780 


3576 




01576 


2952 




BZ 


IND3 


NO, BRANCH 


001570 


9210 


0003 


00003 




2953 




MVI 


HPEZ,X'10' 


YES, PUT EZ=OFF, HP=ON 


001574 


G7FF 








2954 




BR 


15 


RETURN TO CALLER 


001576 


9200 


0003 


00003 




2955 


IND3 


MVI 


HPEZ,X»00» 


PUT EZ AND HP = OFF 


00157A 


07FF 








2956 




BR 


15 


RETURN TO CALLER 
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PAGE 81 



LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 



2953 

2959 * * 

29S0 ^ 'ARCHK' AND 'EXCHK' SUBROUTINES ^ 

2961 * * 

29b2 ^ THIS SUBROUTINE IS USED TO PROCESS ARITHMETIC OVERFLOW AND UNDER- ^ 

2963 * FLOW CONDITIONS- * 

296^ * * 

2965 * ENTRIES ^ 

2966 * 'ARCHK' FOR ARITHMETIC CHECKS CAUSED BY ARITHMETIC OVERFLOW * 

2967 * 'EXCHK* FOR EXPONENT CHECKS CAUSED BY EXPONENT OVERFLOW/UNDERFLOW * 

2968 * ^ 

2969 ^ OPERATION * 

2970 ^ THE ARITHMETIC CHECK INDICATOR IS TURNED ON. THEN, THIS INDICATOR * 

2971 » IS DISPLAYED ON THE 1052 PRINTER-KEYBOARD IF SO REQUIRED BY CONT- * 

2972 ^ ROL INFORMATION. THE SIMULATED OVERFLOW SWITCH IS INTERROGATED - ^ 

2973 ^ IF SET TO 'PROGRAMSTHE SUBROUTINE RETURNS TO THE CALLING SEQUEN- * 

2974 * CE. IF SET TO » STOPS A MESSAGE STATING THAT THERE IS AN 'ARITH- * 



2975 * HETIC CHECK' AND INDICATING THE ADDRESS OF THE INSTRUCTION INVOLV- ^ 

2976 ^ ED, IS SENT TO THE OPERATOR. SIMULATION IS SUSPENDED UNTIL OPERA- * 



2977 TOR ACTION IS TAKEN. ^ 

2978 ^ * 

2979 « NOTE = SAME OPERATION FOR 'EXCHKS * 

2981 * * 



00157C 9610 0004 


00004 




2983 


ARCHK 


01 


OFLOW,X»10* 


SET ARITHM. CHECK INDIC. = ON 


001580 41EG 0193 




00193 


2964 




LA 


WR5,AR 


PREPARE MESSAGE 


001534 9101 0001 


00001 




2985 


OFLSWI 


TM 


PROSWI,X»01' 


TEST IF O'FLOW SWITCH = 'STOP' 


001588 471F 0000 




00000 


2986 




BO 


0(15) 


NO, RETURN TO CALLER 


00156C 40E0 3594 




01594 


2937 




STH 


WR5,^+8 




001590 45F0 00F4 




000F4 


2988 




BAL 


15,MEST0P 


DISPLAY INDICATOR 


001594 00000000 


00^04 




2989 




DC 


A(0) 




001598 9601 0004 




2990 


EKCHK 


01 


OFLOW,X'01» 


SET EXPONENT CHECK INDICATOR ON 


00159C 41E0 018B 




0018E 


2991 




LA 


WR5,EKP 


PREPARE MESSAGE 


0015A0 47F0 3S64 




01564 


2992 




B 


OFLSWI 


BRANCH 
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LOG OBJECT CODE 



ADDRl ADDR2 STHT 



SOURCE STATEHENT 



ASM H V 05 22,10 05/07/81 



2994 
2995 




AIF (NOT &DIVIDE).N0DIV1 



2996 * 

2997 * 

2998 ^ 



'FIXDIV SUBROUTINE 



2999 * THIS SUBROUTINE IS USED BY FIXED-POINT AND FLOATING-POINT DIVIDE ^ 



3003 * THE P AND Q ADDRESSES AND THE P FIELD SIGN ARE SAVED. REGISTERS ^ 

3004 * i4Rl AND WR2 USED AS POINTERS ARE INITIALIZED, THEN, THE 'ADDPQ' * 

3005 ^ SUBROUTINE IS ENTERED TO SUBTRACT THE Q FIELD FROM THE DIVIDEND ^ 

3006 * BY ADDING THE NINES COMPLEMENT OF EACH DIVISOR TO EACH DIVIDEND ^ 

3007 ^ (SEE ALSO FIXED-POINT SUBTRACTION). IF NECESSARY, A NEN CARRY IS ^ 
3003 ^ SET. * 

3009 * * 

3010 * WHEN A Q FLAG OTHER THAN THE SIGN FLAG IS DETECTED, AN EXTRA ZERO * 
3011^ DIGIT IS SUBTRACTED FROM THE DIVIDEND BEFORE ADDING THE P DIGIT ^ 

3012 ^ OF HRl TO THE Q DIGIT. ^ 

3013 * 

3014 ^ A TEST IS PERFORMED ON THE LAST CARRY, A CARRY ONE INDICATES THAT * 

3015 ^ THE SUBTRACTION OF THE Q FIELD HAS NOT EXHAUSTED THE DIVIDEND, THE * 

3016 « LAST CARRY IS ADDED TO THE UNITS POSITION OF THE RESULTING P ^ 

3017 * FIELD. THE ZERO-SET QUOTIENT DIGIT IS INCREMENTED BY ONE, WHICH ^ 

3018 ^ PROVES THAT ONE SUBTRACTION HAS BEEN SUCCESSFULLY PERFORMED. THE * 

3019 * QUOTIENT DIGIT IS CHECKED AGAINST 9, SINCE MORE THAN NINE SUB- * 

3020 ^ TRACTIONS RESULT IN AN OVERFLOW, IN CASE OF OVERFLOW, THE TIXDIV' * 

3021 ^ SUBROUTINE RETURNS TO THE CALLING SEQUENCE THROUGH A SPECIAL OVER- * 

3022 « FLOW EXIT. * 

3023 ^ * 

3024 ^ IF THE QUOTIENT DIGIT IS LOWER THAN, OR EQUAL TO 9, CONTROL IS GI- * 

3025 ^ VEN BACK TO THE START OF A NEW SUBTRACTION. THIS PROCESS IS RE- * 

3026 * PEATED UNTIL THE LAST CARRY IS ZERO. IN CASE OF A ZERO CARRY, THE * 

3027 ^ PARTIAL REMAINDER IS TESTED. IF NULL, THE PROGRAM RETURNS TO * 

3028 ^ 'CARRY ONE'. IF NOT NULL, THE ZERO CARRY INDICATES AN EXCESS * 

3029 * SUBTRACTION AND THE RE-ADDITION LOOP 'ADDPQ' IS ENTERED IN ORDER * 

3030 * TO ADD ONE DIGIT OF THE Q FIELD AFTER THE OTHER TO THE PREVIOUS ^ 

3031 * FIELD, * 

3032 ^ * 

3033 * FINALLY, THE QUOTIENT DIGIT IS NORMALIZED AND STORED. THE P AD- * 

3034 * DRESS IS THEN COMPARED TO THE 1620 ADDRESS 99 AND, IF LONER, IT * 

3035 ^ IS INCREMENTED BY 1. THE WHOLE PROCESS OF SUCCESSIVE SUBTRACT- ^ 

3036 ^ IONS + RE-ADD IS STARTED ALL OVER AGAIN, UNTIL THE P ADDRESS IS * 

3037 ^ EQUAL TO 99. THE LENGTH OF THE QUOTIENT IS COMPUTED AND THE QUO- * 

3038 * TIENT FLAG IS SET. A FLAG IS SET ON THE REMAINDER, WHICH THEN RE- * 

3039 ^ CEIVES THE P SIGN. * 

3040 * * 



3000 ^ 

3001 * 

3002 * 



OPERATIONS. 



OPERATION 



3041 




A2SB 



1620 SIMULATOR 
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OBJECT CODE 


AODRl ADDR2 


U i 1 t i 




9201 


0003 




00003 








9089 


09E8 






009E8 






D3G0 


33A4 


6063 


013A4 


00063 




U U X «' M A. 


D300 


33A5 


9000 


013A5 


00000 






96F0 


9000 




00000 






V W i J U*,, 


9200 


32ED 




012ED 




OKJItKJ 




IGCO 












V U X 


180 0 










3050 


V W X J T 


1620 










*JU-5 X 




16A8 












U U X J! 


1889 












nni*?rA 


18E0 












nni«;rr 

U V X^ irf\,< 


4510 


32E8 






C12E8 






96F0 


AOOO 




00000 








9120 


BOOO 




00000 






U vX J>UQ 


06A0 












V U X UVTI 


50A0 


0580 






00580 


sistJ 7 


U U X^ L<f L, 


4760 


35E6 






015E6 


OUDU 


V U X J U£. 


46B0 


35CC 






015CC 


^ftA1 

UUOX 


0015E6 


43D0 


3334 






01334 




V V X~* t,rl 


4510 


32F4 






012F4 




nnmFF 

wUX<Ju.L. 


96F0 


AOOO 




00000 






V U X-» I £. 


46E0 


36 3A 






0163A 






1683 










ouoo 


uux jiro 


9109 


BOOO 




00000 






vUXJl u 


47C0 


3610 






01610 




nni inn 


94F0 


BOOO 




00000 




JUO 7 


U U xqU't 


59B0 


0580 






00580 


U 


no 1 AHA 


4780 


3610 






01610 






46B0 


35F8 






015F6 


■jU/ C 


U U X O X u 


41EE 


0001 






00001 


m71 


u u xo x^ 


43CB 


0000 






00000 




V U XO Xw 


lACE 












00161A 


42C8 


0000 






00000 




V M XO X :*«. 


4122 


0001 






00001 




001622 


4110 


00D9 






00009 


3078 


U V X o c. o 


1921 










wwf 7 


001628 


4720 


3630 






01630 


3080 


0016fC 


47F0 


35C6 






015C6 


3081 


001630 

V w i *ii w 


D300 


9000 


33A5 


00000 


013A5 


3082 


001636 


47FF 


0004 






00004 


3083 


00 16 3 A 


18A8 










3084 


Q0163r 

V V XO 


1689 










3085 


0Q163F 

V/ U X U w L. 


95F9 


AOOO 




00000 




3086 


001642 


4770 


3654 






01654 


3087 


0016^6 

V V X V TW 


9120 


BOOO 




00000 




3088 


0016^iA 


4780 


35F6 






015F6 


3089 


00164E 


06A0 










3090 


001650 


4680 


363E 






0163E 


3091 


001654 


41EE 


0001 






00001 


3092 


001653 


18A8 










3093 


00165A 


18B9 










3094 


C0165C 


92F0 


32ED 




012EB 




3095 


001660 


4510 


32E8 






012E8 


3096 


001664 


9120 


BOOO 




ODOOO 




3097 



SOURCE STATEMENT 



r XAUJLV 


nv X 


nru<L>A Ux 




J I n 


pa pn TWTTP 




n V t. 


HrDXur^ K ± J > 7 7knnrUKu J 










vx 


ftfpn'i y»Fn» 


r XAU XO 


KV/T 

1 IV X 




Ftynin 

r XAuxu 




up^ n 




L.t\ 






i P 


P7 n 


r xAUJun 




lipl PP 

WKx > Kr 












NR5,0 


r xAUfi 


DnL 


pi Annpn 

i\X J nUUr<4 




Ux 


U vHi\X } >A r u 




TM 
1 n 


UvKiKc ^ >A tU 




RfTP 


UP1 n 

HKx > U 




a 1 


ypi FHTr+i^L 

Wfsx > r uxC • Jlo 




R7 


FTyni 

ixAUx 






UP? FTVnA 


r xAux 


Tr 


UP4 ATARI 






PI Annpny 

fvX jriUUrUtA 
U vWKx y > A r U 




Ux 


r xAUxC 




ypt; FTVn? 




1 P 


IJP7 PP 


r J.AUD 


TM 

in 


nfUP9'i y*ftd» 

U \ WKZ / > A U7 




DC 


R7M FTVn^ 




Nx 


UIMK^ J >A r U 






MD'? FOTr+ld 
HK<!. >rUiLT±b 






0 >r XaUt 




RPT 


HK^ > r xaud 


FTMn4 




Hr\D > X vKKD } 




Tr 

XL> 


UP1 nfUP9^ 




AP 


UP1 .UP^ 




QTf 


rti\*J>w\r<rvrC./ 




1 A 


f\t, ) X ^ v\{. } 




LA 


PI .9 

rvX > 7 




fP 


iSfc. > i\X 




RH 


1 XAUO 




g 


FTyhTA 
r xAuxn 


FIKD6 


MVZ 


Oft ^PilKAP^THN+l 




8 

u 


4(15) 

nf V X^ / 




LR 


WRljRP 




LR 




FIXD19 


CLI 


0(I4R1),X'F9' 




BC 


7,FIXD18 




TM 


0(l«IR2),X'20* 




BC 


6,FIXDIE+4 




BCTR 


WR1,0 




BCT 


WR2,FIXD19 


FiKDlS 


LA 


WR5,1(WR5) 




LR 


WR1,RP 




LR 


WR2,RQ 




MVI 


CVQ+1,X'F0' 


FIXD9 


BAL 


R1,ADDPQ 
0(NR2)>X'20' 




TM 



ASM H V 05 22,10 05/07/81 



SAVE RP AND RQ 
SAVE P SIGN 
SAVE Q SIGN 
DELETE Q SIGN 

SET SWITCH FOR COMPLEMENTATION 

WR3=0 

WR4=0 

R2=0 

NR1=RP 

WR2=RQ 

NR5=0 (CARRY) 

SUBTRACT Q DIGIT FROM P DIGIT 
CLEAR POSSIBLE FLAG 
IS Q FIELD FLAGGED 
WR1=14R1-1 

SAVE RIGHT ADDRESS OF P FIELD+1 

YES, BRANCH 

NR2=WR2-1,L00P 

SET Q DIGIT =09 

SUBTRACT Q DIGIT FROM P DIGIT 

CLEAR POSSIBLE FLAG 

TEST CARRY, ZERO BRANCH 

0NE,WR2=RP 

IS 0(WR2) NUMREIC = 09 

NO, BRANCH 

0(WR2)=0 

TEST IF P FIELD IS EXHAUSTED 

YES, BRANCH 

NR2=WR2-1,L00P 

RESET CARRY 

INSERT P DIGIT 

ADD CARRY 

STORE RESULT 

R2=R2+1 

COMPARE R2 WITH 9 
LOOP 

RESTORE Q SIGN 
RETURN TO CALLER 
WRl = RP 
WR2 = RQ 

COMPARE P DIGIT WITH 9 

BRANCH IF NO EQUAL 

IS Q DIGIT FLAGGED 

YES, BRANCH 

WRl - WRl-1 

WR2 = WR2-'1,L00P 

RESET CARRY 

WRl = RP 

RW2=RQ 

SET SWITCH OFF 
ADD Q TO P DIGIT 
IS Q FIELD FLAGGED 
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LOG OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/61 



Oni AAA 


47Bn 






ni A77 


7U 




R7 

Old. 


r XAUQ 


VF«? RPAWPH 


uuxoov* 


nAAn 








oU77 






ypi n 

HrvX ) U 


ypi -ypi -1 

rirsX-HrvX X 




TOD V 


'^AAn 




ni AAn 


•^1 nn 




RfT 


riiNC. > r XAU 7 


yp9=yp9-i J nnp 

rir\tf-~?Hi%fc, X>L.vVr 


U y JLO/ £. 


4^nn 






ni ^74 


^1 ni 


FiynA 

r xAuo 


TP 

Xw 


UP4 .ATAR9 


yp4=nnrn nTnTT'i 

rt{\T — vU \<J< UXUX t / 


fini A7A 


^nAn 

wriU 








^1 n? 




CT 
vl i 


yPI FHTP+IA 
r*r\x>ruxu'XD 


«^A\/F PTHHT AnnPF«?«? OF P FTFf Ti 


nni 4*7A 


HAAn 








"^1 n^ 




OLr 1 is 


UP1 n 

Hf\X > U 


ijpi -ypi -1 


nni A7r 


6m n 


^7F4 




ni 9F4 


^1 n4 




RAI 
DHL 


i\X >nUur<4A 


Ann n Tn P nTHTT 

nUU IU r UXUX 1 


U JXoOU 




nnnn 




nnnnn 
uuuuu 


^1 n*^ 

uXUD 




D 1 L 


P9 nflJPI 


t^THPF P9 ATUP1 AnnPFQQ 
3iUKtl niHKl nUUKc.33 




^ or u 


A n ^1 n 

ri U U U 


nnnnn 




"51 nA 
oxuo 




ux 


nrupi ) y »Fn* 

U vWKX / > A 1 U 


9f 


nni AAA 










^1 n7 

jXU/ 




! P 
LfS 




ypo-pp 


nni AAA 


Q1 nQ 

7XU7 


rnnn 


nnnnn 




^1 nA 


FTVni 1 
r XAUXX 


TM 

in 


U kriKCJ / > A U7 


Tc nfyp^^-Q 


ftni ApcT 

UUlDOu. 


67rn 


A9 




ni AA9 


^1 no 

jXU7 




Rr 


P7M FTyni n 
D<i,n >r xaUXU 


Wn RPAWPH 


nni <^Q9 

UUXO 7«, 


Q6Fn 
7*Tr U 


rnnn 


nnnnn 
uuuuu 




"51 1 n 
^xxu 




iMX 


nrup^> y«Fn* 

U vHrso / > A r u 


nfUP^^ MHMPFTP -n 


nff 1 AQA 


-> 7LU 


UDuU 




nnciRn 

UUDOU 


^111 
^xxx 




r 


ypo FHTP+IA 
WrsO > r UXL » Xo 


TF<;T TF P FTFI n T<; FVHAIlQTFn 
luSI Xr r r XCLU X3 C.AnnU3IC.U 


yUXD7rii 


47 An 


■^AAr 




ni AAr 

UXoriU 


^119 




RP 


A FTyni n4'in 

O > r XaUXU ^XU 


yre ppAWPH 


UUX07C, 








ni AP^A 


"^11^ 

«jXXO 




RfT 


upq FTymi 

ril\0 > r XAUXX 


WA 1 nnp 






nnnn 

u u V y 




nnnnn 


'^114 

JXX^ 


FTyni n 


TP 
xu 


UP4 nfijp^"i 




nni AAA 










^11^ 

«J X x^ 




AR 




Ann PAPPY 




4?rir 


u U V U 




nnnnn 

uuuuu 


•^1 1 A 




«?TP 






fifii A^r 


41 1 A 






nnnA^ 


"^117 




1 A 


l\X > 7 7 M iri~\Jt\Kf J 




fini ARH 


1 QR1 

X7UX 








Ifl 
OXXU 




PP 


|\r > !\X 


PHMPAPF pp UTTH PnPF«vT+9<5 

UvlirniNl- i\r NX in v#vi\t.j| '77 


nni AP9 




^ARF 




ni ARF 
UXoDC 


^110 

w>XX7 




RF 


FTyni 9 


FHflAl RPAWPH 


UUlouO 


41 Afi 
4 ICO 


n n n 1 




nnnm 
uuuux 


^1 7n 




t A 
Ln 




pp - PP4-1 


nni AP& 


47Fn 






ni c:Rr 

UX DDC 


JX^X 




p 
D 


FTyni 
rxAuxj 




nni ARP 


DOUU 


nOFA 

U7tO 




nnoFfl 

UU7C,C3 


^1 99 


FTvni 9 


1 


UP4 TWTTP 


PF<5TnPF P AnnPFQQ 


nni Ar9 


IRA A 
XDOn 








^19^ 




DK 


PP ypi 


PP-PP-UPI -! 


nni Af^ 


XDUO 








^194 




Df\ 


yp4 pp 


yP4--UP4-l 


nni ATA 


Q4nF 


nnnn 


nnnnn 
uuuuu 




^^19^: 

oXcD 




KiT 
riX 


nryp4'k y»nF* 
u'.hk't j >a ur 


tJFT Fl Afi AT UP4--I AnnP 


nni APA 




in U U X 


nnnni 

uuuux 




^1 9A 




WT 
MX 


1 f UP1 > y «nF * 
xkWKX/)A ur 


CCT ppMATWnFP Fl AR 


nn 1 AfF 


c^Ron 

D07U 






nnQFr 


^197 




L 


pn TWTTn 
rvU^ » XriX i<4 


pFciTHPF n AnnPFQt; 


nni An? 


n'=?nn 

UJUKt 






ni ^Ao^ 


^1 9A 






nM PD^ AP<^TfiW + 1 


cpT n QTr;W 
DC 1 14 DXur« 


nni ADR 


7 X£.U 




ni lA4 




^19Q 




TM 
in 


AP^Tf^M.y »9n» 


T«J P FTFI n Pn*;TTTUF 
xu r r XCLU ruoxixvc 


V V J. V I.' w 


4710 


36F2 




016F2 


3130 




BO 


FIXD15 


YES, BRANCH 


0016E0 


9720 


6063 


0GC63 




3131 




XI 


99(MAPORG),X*20» 


NO, REMAINDER NEGATIVE 


0016E4 


9120 


33A5 


013A5 




3132 




TM 


APSIGN+1,X'20* 


IS Q FIELD POSITIVE 


00UE8 


4710 


36FA 




016FA 


3133 




BO 


FIXD17 


YES, BRANCH 


0016EC 


9GF0 


AOOO 


00000 




3134 


FIXD16 


01 


0(WR1),XT0» 


SET PLUS SIGN 


0016F0 


07FF 








3135 




BR 


15 


RETURN TO CALLER 


C016F2 


9120 


33A5 


013A5 




3136 


FIXD15 


TM 


APSIGN+1,X'20' 


IS Q FIELD POSITIVE 


0016F6 


4710 


36EC 




016EC 


.3137 




80 


FIXD16 


YES, BRANCH 


OOi^FA 


94DF 


AOOO 


00000 




3138 


FIXD17 


NI 


0(WR1),X«DF* 


SET MINUS SIGN 


OOl^FE 


07FF 








3139 




BR 


15 


RETURN TO CALLER 
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LOG OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

3142 ^ * 

3143 * DIVIDE * 

3144 ^ * 

3145 ^ THE P AND Q ADDRESSES ARE CONVERTED TO BINARY BEFORE THE *FIXDIV' * 

3146 * SUBROUTINE IS ENTERED. THE NORHAL SEQUENCE PROCEEDS TO THE 'INDIC* * 

3147 * SUBROUTINE FROH WHERE EXIT IS TO 'BIR' ENTRYO. HONEVER, IF A DI~ * 
3148^ VIDE OVERFLOW OCCURS, THE 'ARCHK' SUBROUTINE IS ENTERED FOR A * 

3149 ^ CHECK. THE SEQUENCE THEN EXITS TO '^BIR' ENTRYO. * 

3150 * * 
3151^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 



001700 

001704 
001706 
00170C 
001710 
001712 
001716 



45F0 
45F0 
47F0 
47F0 
183A 
45F0 
47F0 



0902 

35A4 
3710 

0E26 

3548 
07F6 



00902 3153 D29 BAL 15,C0NVPQ 

G15A4 3154 D29A BAL 15,FIXDIV 

01710 3155 B D29B 

00E26 3156 B C24I 

3157 D29B LR RP,WR1 

01548 3158 BAL 15,INDIC 

007F6 3159 8 ENTRYO 



CONVERT P AND Q ADDRESSES 
BRANCH TO FIXDIV 
BRANCH TO NORHAL SEQUENCE 
ARITHHETIC CHECK TESTING 
RP = HRl 

INDICATORS UPDATING 

GO TO INTERPRETIVE LOOP 



3162 «*^5€)c^^i€^5e^5t*7€^«9^9€^9e9f9t^9e3e*3«$e9t*^5ti€*9f9^^^5t^^5t^$e9^^e^e9f**«3f^ 

3163 ^ * 
3164^ DIVIDE IHHEDIATE * 
3165 ^ ^ 
3166 



00171A 45F0 0906 
00171E 4195 ODOB 
001722 47F0 3704 



00906 3168 DH19 BAL 15,C0NVP 
OOOOB 3169 LA RQ,11(CNTR) 

01704 3170 B D29A 



CONVERT P ADDRESS 
RQ = CNTR^-ll 
GO TO DIVIDE 
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LOC OBJECT CODE ADDRi ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

3173 * * 

3174 * LOAD DIVIDEND * 

3175 * ^ 

3176 ^ THE P AND Q ADDRESSES ARE CONVERTED TO BINARY, A PRELIMINARY 'MOVE ^ 

3177 * CHARACTER' IS INITIATED TO FILL THE PRODUCT AREA WITH 'FO' BYTES, * 

3178 ^ THEN, THE Q FIELD SIGN IS TRANSMITTED TO POSITION 99. EXIT IS TO * 

3179 * THE 'TRANSMIT FIELD' ROUTINE DESCRIBED UNDER 'INTERNAL DATA TRANS- * 

3180 ^ MISSION'. ^ 
3161 



001726 


45F0 


0902 






00902 


3183 


LD26 


BAL 


15,C0NVPQ 


CONVERT PANDQ ADDRESSES 




00i72A 


92F0 


6050 




00050 




3184 


LD28A 


MVI 


8C(MAPOR6),X'F0' 


CLEAR PRODUCT AREA 




00172E 


D212 


6051 


6050 


00051 


00050 


3185 




MVC 


81(19,MAPORG),80(MAPORG) 




001734 


96F0 


6000 




DOOOO 




3186 




01 


Q(RP),X'FO' 


CLEAR FLAG IF ANY 


VlLl 














3187 




MVZ 


99(1,MAPORG),0(RQ) 


MOVE Q SIGN (DELETED) 


V1L2 


001738 


DlOO 


6000 


9000 OOdOO 00000 


3188 




MVN 


0(1,RP),0(RQ) 


MOVE NUMERIC PART OF Q 


V1L2 


00173E 


5090 


09E8 






G09E8 


3189 




ST 


RQ,INITP 


SAVE RQ FOR FURTHER USE 


V1L2 


001742 


45F0 


0CB3 






00CB8 


3190 


LD28B 


BAL 


15,TN5WR4-2 


MOVE FIELD RQ TO RP 


V1L2 


001746 


D200 


8000 


9000 


00000 


00000 


3191 




MVC 


0(1,RP),0(RQ) 




V1L2 


00174C 


9120 


9000 




00000 




3192 




TM 


0(RQ),X'20' 


IS RQ FLAGGED 


V1L2 


001750 


4710 


3742 






01742 


3193 




BC 


1,LD28B 


NO, LOOP 


V1L2 


001754 


5890 


09E6 






009E8 


3194 




L 


RQ,INITP 


YES, RESTORE RQ 


V1L2 


001758 


D300 


6063 


9000 


00063 


00000 


3195 




MVZ 


99(1,HAPORG),0(RQ) 


HOVE Q SIGN TO 99 


V1L2 


00175E 


47F0 


07F6 






007F6 


3196 




B 


ENTRY 1 


RETURN TO 'SIR' 


V1L2 














3197 




B 


TFA 


GO TO TRANSMIT FIE(DELETED) 


V1L2 



3200 9t^^*9e*^M%9eJ€*9€^*9e^*i^9^*^«i69t*^*^*^(9e**ie*^€5t*^9e9t*$c9€****if**9^*^ 

3201 * ^ 

3202 ^ LOAD DIVIDEND IMMEDIATE ^ 

3203 * * 

3204 ^^^^^^^^^^^^^^^x^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^x^^^^^^xx^^^^^^x^^^^^^^ 



001762 45F0 0906 
001766 4195 OGOB 
00176A 47F0 372A 



00906 3206 LDM18 
OOOOB 3207 
0172A 3208 



BAL 15,C0NVP 
LA RQ,11(CNTR) 
B LD28A 



CONVERT P ADDRESS 
RQ = CNTR + 11 



A2SB 1620 SIHULATOR 

LOG OBJECT CODE ADDRl ADDR2 



PAGE 87 



STHT SOURCE STATEMENT ASH H V 05 22.10 05/07/81 



3210 AGO ,DIVX1 

3211 *DIVX1 ANOP 

3212 AIF (HOT &FL0AT).N0FL01 

3213 



3214 ^ * 

3215 ^ SECTION 5 * 

3216 ^ FLOATING-POINT OPERATIONS * 

3217 * * 

3218 * SIMULATION OF FLOATING-POINT OPERATIONS USES THE FIVE SUBROUTINES * 

3219 * ALREADY DESCRIBED UNDER 'ARITHMETIC OPERATIONS', AND THE 'EXPOW * 

3220 * SUBROUTINE REFERRED TO IN THE PRESENT SECTION. ^ 

3221 * THE FLOATING-ADD AND FLOATING-SUBTRACT INSTRUCTIONS REQUIRE, IN * 

3222 ^ ADDITION, THE 'SHIFT' SUBROUTINE ALSO DESCRIBED IN THIS SECTION. * 

3223 * * 



3227 * * 

3228 ^ FLOATING MULTIPLY * 

3229 * ^ 

3230 * THE P AND Q ADDRESSES ARE CONVERTED TO BINARY, THEN DECREMENTED * 

3231 ^ BY 2, CONTROL IS GIVEN TO THE 'MULT' SUBROUTINE, FOLLOWED BY THE ^ 

3232 * 'INDIC SUBROUTINE. AFTER INDICATOR UPDATING, THE P AND Q EXPO- * 

3233 * NENTS ARE CONVERTED TO BINARY AND ADDED. THE LEFTMOST DIGIT IS ^ 

3234 ^ TESTED AND, IF ZERO, THE DIGITS IN THE PRODUCT AREA ARE MOVED TO * 

3235 ^ THE P FIELD MANTISSA. * 

3236 ^ ^ 

3237 * THE E/2 INDICATOR IS TESTED = * 

3238 ^ ^ 

3239 ^ IF ON, THE RESULT OF THE MULTIPLICATION IS ZERO AND THE P EXPO- ^ 

3240 * NENT IS SET TO 99. * 

3241 * IF OFF, CONTROL IS GIVEN TO THE 'EXPON' SUBROUTINE NHICH NORMALLY * 

3242 * EXITS TO 'BIR'. IN CASE OF OVERFLOW, CONTROL IS DIRECTLY GIVEN TO * 

3243 * THE 'EXCHK' SUBROUTINE WHICH INTERROGATES THE OVERFLOW SWITCH. IN ^ 

3244 ^ CASE OF UNDERFLOW, THE E/Z INDICATOR IS SET ON. * 

3245 * 



00176E 


45F0 


0902 


00902 


3248 FMUL03 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


001772 


OG60 






3249 


BCTR 


RP,0 




001774 


0690 






3250 


BCTR 


RQ,0 




001776 


GG80 






3251 


BCTR 


RP,0 


RP=RP-2 


001778 


0690 






3252 


BCTR 


RQ,0 


Rg= RQ-2 


00177A 


45F0 


33C4 


013C4 


3253 


BAL 


15, MULT 


MULTIPLY P FIELD BY Q FIELD 


00177E 


S8C0 


0570 


00570 


3254 


L 


WR3,FDIC 


WR3= ADDRESS OF FIRST P DIGIT 


001762 


4186 


0063 


00063 


3255 


LA 


RP.99(MAP0RG) 


RP =COREST +99 


001766 


1BA8 






3256 


LR 


WR1,RP 


WRl = COREST + 99 


001788 


45F0 


3548 


01543 


3257 


BAL 


15, INDIC 


INDICATORS UPDATING 


00178C 


5880 


09E8 


009E6 


3256 


L 


RP,INITP 


RESTORE P ADDRESS 


001790 


F271 


09D8 8001 


009D8 00001 


3259 


PACK 


BUFFP(8),1(2,RP) 


CONVERT EP TO BINARY 


001796 


4FD0 


09D8 


009D8 


3260 


CVB 


WR4,BUFFP 


9e 



A2SB 1620 SIHULATOR 



1 nr 


OBJECT CODE 








F271 


09D8 


9001 


UU7UO 


uuuux 




4FE0 


0908 






UU7UO 


nni 7r a 

UUl/n'-f 


lADE 










nni 7A4 

UUl/ no 


910F 


BOOO 




uuuuu 




UU JL/hn 


^770 


3788 






rtl 7PA 


nni7i r 


^IBB 


0001 






UUUUJ. 


UUi/ D£ 


06D0 












94DF 


BOGO 




uuuuu 






DlOO 


COOO 


BOOO 


U V vUw 


uuuuu 




4 IBB 


0001 






vU UUx 




^ICC 


0001 






vUUUJ. 




DlOO 


COOO BOOO 


uu wU V 


nnnnn 

vUU VU 


WU A/ VfV# 


19C8 










uu J./ v*C 


4740 


37BE 






ni7RP' 

KfXf Du 


nni7n? 

UUl/ Uf. 


D300 


8000 6063 


U V u U U 


uuuoo 


uu JLr Uu 


9501 


0003 




UUUU J 




nm 7nr 

UUX/UL 


4780 


37F8 






Ul/ rO 


nrti 7r™ A 


45F0 


3B9A 






ni RQ& 




47F0 


07F6 






vUr r o 


0017E8 


47F0 


37F0 






017F0 


0017EC 


9201 


0003 




00003 




0017F0 


45F0 


3598 






01598 


0017F4 


47F0 


07F6 






007F6 


0017FS 


92D9 


8001 




OCOOl 




0017FC 


92D9 


8602 




00002 




001800 


47F0 


07F6 






G07F6 



STMT SOURCE STATEMENT 



3261 




rnLf\ 


RflPPDfft'^ 1f9 Dn > 
DUrrrvo ) y IKc^f^^ ^ 


3262 






UPC RMPPD 


3263 




AD 


HK4 >NKD 


3264 




TM 

in 


U^WKt J jA Ur 


3265 




Rr 

DL. 


7 PMtH 1 


3266 




1 A 




3267 




RTTD 
DL 1 K 


NK4 > U 


3268 






nfyp7> Y»np' 


3269 


FHULl 


MUM 


U \ i >HJnO i> > U v.Hf%<, i> 


3270 FMUL2 




Llp7 1fUP9> 


3271 




1 A 


hi\v) > J. vNKO J" 


3272 






nfi yp^i nfiiP9i 

Uvi>iM\0/>U vWfSfc / 


3273 




ro 

Kris 


yp^ PP 


3274 




DL 


PMIfJ 9 


3275 








3276 




ri T 


nru<l>A UJL 


3277 




DC 


FHIH ^ 
rnuL.^ 


3278 




BAL 


15,EXP014 


3279 




B 


ENTRYO 


3260 




B 


FHUL4 


3281 




MVI 


HPEZ^X'Ol' 


3262 


FMUL4 


BAL 


15,EXCHK 


3283 




B 


ENTRYO 


3234 


FMUL3 


MVI 


1(RP),K'D9* 


3235 




MVI 


2(RP),X'D9' 


3266 




B 


ENTRYO 



PAGE 88 



ASM H V 05 22,10 05/07/61 

CONVERT EQ TO BINARY 

NR4=EP+EQ 
IS 0(WR2) = 0 
NO, BRANCH 
YES,yR2 =WR2+1 
NR4=WR4-1 

SET FLAG AT WR2ADDRESS 

MOVE NUMERIC TO 0(WR3) 

WR2=WR2+1 

WR3=NR3^1 

MOVE NUMERIC 

IS WR3 LOWER THAN RP 

YES, BRANCH 

MOVE ZONE TO P FIELD 
IS E/Z ON 
YES, BRANCH 
NO,EXPOW SUBROUTINE 
RETURN TO INTER. LOOP 
OTL 

U'FL,SET E/Z ON 
EXCHK SUBROUTINE 
RETURN TO INTER. LOOP 

SET EP= 'D9D9' 

RETURN TO INTERPRETIVE LOOP 



A2SB 1620 SIMULATOR PAGE 69 

LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

3289 ^ * 

3290 * FLOATING DIVIDE « 

3291 ^ ^ 

3292 ^ THE P AND Q ADDRESSES ARE CONVERTED TO BINARY, THEN DECREMENTED * 

3293 * BY 2. CONTROL IS GIVEN TO THE 'COMP' SUBROUTINE. THE ABSOLUTE * 

3294 ^ VALUES OF THE TWO MANTISSAS ARE COMPARED AND ACCORDING TO THE RE- * 

3295 * SULT OF THE TEST THE P MANTISSA IS TRANSFERRED TO THE PRODUCT A- * 

3296 * REA . * 

3297 ^ THEN, CONTROL IS GIVEN TO THE 'FIXDIV SUBROUTINE NITH NORMAL « 
3298* EXIT TO THE 'INDIC* SUBROUTINE. ^ 

3299 * THE QUOTIENT IS MOVED TO THE P MANTISSA FIELD AND THE RESULTING ^ 

3300 * EXPONENT IS COMPUTED (EP - EQ). * 

3301 * THE 'EXPON* SUBROUTINE IS ENTERED AND IN CASE OF EXPONENT OVER- * 

3302 * FLOW OR UNDERFLOW, THE SEQUENCE GOES TO THE 'EXCHK' 'ARCHK' SUB- * 

3303 * ROUTINE INSTEAD OF RETURNING TO 'BIR». THE P AND Q EXPONENTS ARE * 

3304 * THEN COMPUTED. * 

3305 * ^ 

3306 *****9^X«*^9€^t*^9f^e*^9t^^9t9(tt«^t^«9^9e9^*5t5^**^«96^i$5**9t9t9e^t^ 



UUiOUi 


Hjf U 










r UxVUz 


PA! 
DHL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 
















DL 1 1\ 


RQ,0 






UO 7 U 












Du 1 K 


RQ,0 


RQ= RQ-2 


Goiccr 

V V Aw WW 


0660 








3311 




BCTR 


RP,0 




00180E 


0600 








3312 




BCTR 


RP,0 


RP=RP-2 


001610 


9059 


0570 




00570 


3313 




STM 


RP,RQ,FDIC 


SAVE P AND Q ADDRESSES 


001814 


92F0 


6050 


00050 




3314 




MVI 


80(MAPORG),X'F0' 


CLEAR PRODUCT AREA 


001818 


D212 


6051 6050 


00051 


00050 


3315 




MVC 


81 ( 19 ,MAPORG ) ,80(MAPORG ) 


00181E 


4120 


3374 




01374 


3316 




LA 


R2,ATAS2 


LOAD A 'FO' ADDRESS 


001822 


5020 


09E6 




009E8 


3317 




ST 


R2,INITP 


STORE THIS ADDRESS 


001626 


45F0 


CE6C 




00E6C 


3318 




BAL 


15,C0HP 


COMP SUBROUTINE 


00182A 


9111 


0003 


00003 




3319 




TM 


HPEZ,X'll' 


IS HP AND EZ OFF 


00182E 


4730 


38E4 




018E4 


3320 




BZ 


FDIA 


YES, BRANCH 


001632 


41B6 


0064 




00064 


3321 




LA 


WR2,100(MAPORG) 


NO,WR2=CORESTn00 


001836 


D201 


3AA2 3524 


0IAA2 


01524 


3322 




MVC 


EPH+2(2),MTABl+32 


EPH+2=0001 


00183C 


IBBA 








3323 


FDIB 


SR 


WR2,WR1 


WR2=WR3-WR1 


00163E 


9659 


0570 




00570 


3324 




LM 


RP,RQ,FDIC 


RP,RQ=INITIAL ADDRESSES 


001642 


50A0 


0578 




00576 


3325 




ST 


WRl,FDIC+8 


SAVE WRl 


001846 


DiOO 


BOOO 8G00 


00000 


00000 


3326 




MVN 


0(1,WR2),0(RP) 


MOVE NUMERIC TO 0(WR2) 


00184C 


D300 


6063 8000 


00063 


00000 


3327 




MVZ 


99(1,MAPORG),0(RP) 


MOVE ZONE TO COREST+99 


001852 


0680 








3328 


FDIE 


BCTR 


RP,0 


RP=RP-1 


001654 


G6B0 








3329 




BCTR 


WR2,0 


WR2=WR2-1 


001856 


D200 


SOOO 8000 


00000 


00000 


3330 




MVC 


0(1,WR2).0(RP) 


MOVE BYTE TO 0(WR2) 


00185C 


9120 


8000 


00000 




3331 




TM 


0(RP),X'20« 


IS P FIELD FLAGGED 


001860 


4710 


3852 




01852 


3332 




BO 


FDIE 


NO, LOOP 


001664 


4186 


0064 




00064 


3333 




LA 


RP,100(MAPORG) 


YES,RP=COREST+100 


001666 


IBSA 








3334 




SR 


RP,WR1 


RP =RP-WR1 


00166A 


45F0 


35A4 




015A4 


3335 




BAL 


15,FIXDIV 


FIXDIV SUBROUTINE 


00186E 


47F0 


3876 




01876 


3336 




B 


*+8 




001672 


47F0 


38F2 




018F2 


3337 




B 


FIXOFL 


OVERFLOW 


001676 


168A 








3338 




LR 


RP,WR1 


RP =WR1 


001878 


45F0 


3548 




01548 


3339 




BAL 


15,INDIC 


INDICATORS UPDATING 


00187C 


988A 


0570 




00570 


3340 




LM 


RP,WR1,FDIC 


RELOAD RP,RQ,WR1 


001830 


41D6 


0063 




00063 


3341 




LA 


WR4,99(MAP0RG) 


WR4 =C0REST+99 



A2S8 



1620 SIMULATOR 



PAGE 90 



{ AT 
LUL 


OBJECT CODE 


nUUisx 


rMJUKc, 


J in f 


OUUrCuu. 


STATEMENT 


nOn n V Uj> 


UUi004 


IBDA 














SR 


WR4,I4R1 




UUiOOb 


D2C0 


6000 


DOOO 


uuuuu 


uuuuu 






MVC 


C(1,RP),0(WR4) 


MHUF FTPQT RYTF TCi HfPP) 


UUiQtJL 


0680 












rUivo 


BCTR 


RP,0 




UU lOuC 


06D0 














BCTR 


HR4,0 






D200 


6000 


DOOO 


uuuuu 


uuuuu 






MVC 


0(1>RP),0(WR4) 


HC\\}f CiUf RYTF" Ifi fifPPl 

llvVu. VifL. UT \L, IV v\i\i / 


UU 10 70 


9120 


DOOC 




uuuuu 








TM 


C(WR4),X'20' 




UUlDzn 


^710 


388C 






U 






BO 


FDIV6 


uc\ . 1 nop 


nni AQF 

UUiO 7iL 


5860 


0570 






UU3/ U 






L 


RP,FDIC 


YF^ PPrTWTTTAI AHnPF*?*? 




9S01 


0003 




U U U U n5 








CLI 


HPE2,X'01' 


T«; F/7 HM 

XO U/ L. \Jii 




4780 


38D6 






ft 1 AHA 


OoD X 




BE 


FDIV7 


YF<? .RPAWrW 


uUlOnn 


F271 


09D8 


6001 


UU 7L<0 


uuuux 






PACK 


BUFFP(8),1(2,RP) 


Nn.rnf*4\/FRT fp to rtnapy 


UUlODU 


4FD0 


09D6 






nnQHA 

UU7UO 






CVB 


WR4,BUFFP 




UUiuuHr 


F271 


09D6 


9001 


ftrtQHR 
UUtUO 


uuuux 






PACK 


BUFFP(8),1(2,RQ) 


rnw\/FPT FQ in rtkiapy 


U U lu D n 


4FB0 


09D6 






UUzUO 






CVB 


WR2,BUFFP 




Uuiouc. 


18DB 










JO JO 




SR 


WR4,WR2 


l]P6"'LJP6-tiP9 




4AD0 


3AA2 






UXnnt 






AH 


l4R4,EPH+2 




UUiQLH 


^r5F0 


3B9A 






UXD 7n 


0030 




BAL 


15,EXP014 


CArUH OUDrvvU 1 XriC. 


ft A t qrr* 


47F0 


0?F6 






uur r o 


003 7 




B 


ENTRYO 


PFTliPM in TNTFPPRFTTVF PftllTTNF 


UUiOLu 


47F0 


3300 






ni Ann 


OOqU 




B 




HFi 


nni Ann 


45F0 


3S98 






UX3 /D 


OOoX 




BAL 


15,EKCHK 




UUXOU'7 


47FG 


C7F6 








OOot. 




B 


ENTRYO 


PFTilPM in TNTFPPPFTTVF PHIITYNF 

iSu i Ui\i« IV Xi« II.r\r i\u. 1 XVL. I\VU 1 xliu 


AH 1 AHA 


92D9 


6001 




U U U U A 




ooqo 


FnTU7 


MVI 


1(RP),X»D9* 






92D9 


8002 




UUUuc 




OOOt 




MVI 


2(RP),X'D9' 


FP- »nQn<3» 

ur- U7U7 


UulOLU 


47F0 


07F6 






uu/r D 


OOqD 




B 


ENTRYO 


PFTIlPlsJ TH TWTFPPPFTTVF 1 OOP 


Ani AP£i 


41B6 


0063 






UUUbo 


OOdo 


ruin 


LA 


WR2,99(MAP0RG) 


Hrv^-wvfNt-0 1 • 77 


nni AFA 


D201 


3AA2 


34D8 




ni 6nA 


OOd/ 




MVC 


EPH+2(2),MCL£AR 


FPW+9-ftftnn 
urn • ^-uuuu 


Art t fJErcr 
UUictt 


47F0 


3S3C 






fti A^r 

UXO 


'3'?^A 

oobo 




B 


FDIB 


ppAMru 
DKnr»Ln 


UUior 4 


9869 


0570 






ftftC7f| 


00b7 


r iAUr L 


LH 


RP,RQ,FDIC 


PFI HAH PP Pn 


UUXdro 


F271 


09D5 


8001 


nncinA 

UUziiO 


nnnni 
uuuux 


00/ U 




PACK 


BUFFPC8),1(2,RP) 


rnN\/FPT FP in rtwapy 


UUiorL 


4FC0 


G9D3 






UUVliO 


00/X 




CVB 


WR3,BUFFP 




ftfti Qftn 
UUiyUU 


5890 


09EC 








00/c 




L 


RQ,INITQ 


rnWUFPT FO TO RTMAPV 


ftft 1 Qn6 


F271 


09D3 


9001 


UU7UO 


uuuux 


00/ 0 




PACK 


BUFFP(6),1(2,RQ) 




UUl7un 


4FD0 


09D8 






\JU7UO 


00/ T 




CVB 


NR4,BUFFP 






IBCD 










OO/ 3 




SR 


1IR3,HR4 


UP^=UPl-Uf5^ 


001910 


4EC0 


09D8 






009D6 


3376 




CVD 


NR3,BUFFP 


CONVERT WR3 TO DECIMAL 


00191^ 


9101 


09DF 




009DF 




3377 




TH 


BUFFP+7,X*01' 


TEST SIGN 


001918 


^710 


3920 






01920 


3378 




BC 


1,^+8 


IF D, BRANCH 


00191C 


9bOF 


09DF 




009DF 




3379 




01 


8UFFP+7,X'0F* 


IF C, CONVERT TO F 


001920 


F31i 


8001 


09DE 


00001 


009DE 


3380 




UNPK 


l(2,RP),BUFFP+6(2) 


UNPACK IT IN P FIELD 


001926 


94DF 


8001 




00001 




3381 




NI 


1(RP),X'DF' 


SET FLAG ON EXPONENT 


00192A 


45F0 


3596 






01598 


3382 




BAL 


15,EXCHK 


EXCHK SUBROUTINE 


001926 


47F0 


0E26 






00E26 


3363 




B 


C24I 


ARITHMETIC CHECK 



A258 1620 SIHULATOR PAGE 91 

LOG OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

3387 * « 

3386* TRANSMIT FLOATING * 

3389 * * 

3390 * THE P AMD Q ADDRESSES ARE CONVERTED TO BINARY, AND THREE DIGITS * 

3391 * ARE MOVED FROM THE Q FIELD TO THE P FIELD. * 

3392 * CONTROL IS THEN GIVEN TO TFA IN THE 'TRANSMIT FIELD' ROUTINE. * 

3393 * * 

3394 $e^«^(^^^^^^9eie^5*^€*^^^«9^^^«^^%i^K**^^t9f^^$t^«x^9t^9^****^«9€$e«««^e^ 



001932 45F0 0902 00902 3396 TFL06 BAL 



001936 0680 3397 BCTR 

001938 0680 3396 BCTR 

C019:iA 0690 3399 BCTR 

00193C 0690 3400 BCTR 

00193E D2D2 8C00 9000 00000 00000 3401 MVC 

001944 47F0 OCAO OOCAO 3402 B 



15,C0NVPQ CONVERT P AND Q ADDRESSES 

RP,0 * 

RP,0 RP=RP-2 

RQ,0 * 

RQ,0 RQ=RQ-2 

0(3,RP),0(RQ) MOVE 3 CHARACTERS FROM Q TO P 

TFA GO TO TRANSMIT FIELD 



3404 *)«^69(9^^^i(^6*^^^t^f^^tK*«*^**5fe^^^^^*^9^^'5t^*t^i«9e«if5$if^9^^^*«9«^^e9«9^if^$e«X^t^e^^ 

3405 * 

3406 * BRANCH AND TRANSMIT * 

3407 * * 
3406 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^i^^^^************************************** 



001948 


45F0 


0902 


00902 


3410 STFL07 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


00194C 


41A5 


OOOC 


OOOOG 


3411 


LA 


NR1,12(CNTR) 


NR1=CNTR+12 


001950 


50A0 


3134 


01134 


3412 


ST 


NR1,IR2 


STORE WRl IN IR-2 


001954 


1856 






3413 


LR 


CNTR,RP 


CNTR =RP 


001956 


0680 






3414 


BCTR 


RP,0 




001958 


0680 






3415 


BCTR 


RP,0 




00195A 


0660 






3416 


BCTR 


RP,0 


RP=RP-3 


00195C 


0690 






3417 


BCTR 


RQ,0 




00195E 


0690 






3418 


BCTR 


RQ,0 


RQ=RQ-2 


001960 


D202 


6000 9000 


00000 00000 


3419 


MVC 


0(3,RP),0(RQ) 


MOVE 3 CHARACTERS FROM Q TO 


001966 


47F0 


30E2 


010E2 


3420 


B 


BT27B 


GO TO BRANCH AND TRANSMIT 



A2SB 
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3423 * * 

3424 * FLOATING SHIFT RIGHT * 

3425 * * 
3426 



C0i%A 


45F0 


0902 






00902 


3428 


FSR06 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


001%E 


45E0 


3976 






01976 


3429 




8AL 


14, 




001972 


47F0 


07F6 






007F6 


3430 




B 


ENTRYl 




001976 


DlOO 


8000 


9000 


00000 


00000 


3431 




MVN 


0(1,RP),0(RQ) 


MOVE NUMERIC FROM Q TO P 


00197C 


0680 










3432 


FSRA 


BCTR 


RP,0 


RP=RP-1 


00197E 


0690 










3433 




BCTR 


RQ,0 


RQ=RQ-'l 


001980 


D2C0 


8000 


9000 


00000 


00000 


3434 


FSRC 


HVC 


0(1,RP),0(RQ) 


MOVE ONE BYTE FROM Q TO P 


001966 


9120 


9000 




00000 




3435 




TM 


0(RQ),X»20' 


IS Q FIELD FLAGGED 


00198A 


4710 


397C 






0197C 


3436 




BO 


FSRA 


NO, LOOP 


00198E 


1959 










3437 


FSRB 


CR 


RP,RQ 


YES, IS RP EQUAL TO RQ 


001990 


076E 










3438 




BER 


14 


RETURN 


001992 


0680 










3439 




BCTR 


RP,0 


RP=RP-1 


001994 


92F0 


60C0 




00000 




3440 




MVI 


0(RP),K'FO' 


MOVE TO' TO P FIELD 


001998 


47F0 


393E 






0198E 


3441 




B 


FSRB 


LOOP 



3444 

3445 ^ * 

3446 * FLOATING SHIFT LEFT * 

3447 ^ * 
3448 



00199C 


45F0 


09G2 




00902 


3450 


FSL05 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


0019A0 


18A9 








3451 




LR 


WR1,RQ 


WR1=RQ 


0019A2 


06A0 








3452 


FSLA 


BCTR 


WR1,0 


NR1=HR1-1 


0019A4 


9120 


AOCO 


00000 




3453 




TM 


0(WR1),X'20^ 


IS NRl FIELD FLAGGED 


0019A8 


4710 


39A2 




019A2 


3454 




BO 


FSLA 


NO, LOOP 


00i9AC 


D200 


8000 AOOO 


00000 


00000 


3455 


FSLB 


MVC 


0(1,RP),0(WR1) 


YES, MOVE ONE BYTE FROM WRl TO P 


0019B2 


19A9 








3456 




CR 


14R1,RQ 


IS NR1=RP 


0019B4 


4780 


39C4 




019C4 


3457 




BE 


FSLC 


YES, BRANCH 


0019B8 


41AA 


0001 




00001 


3453 




LA 


WRiaCMRl) 


N0,WR1=NR1+1 
RP=RP+1 


00198C 


4168 


0001 




00001 


3459 




LA 


RP,1(RP) 


0019C0 


47F0 


39AC 




019AC 


3460 




B 


FSLB 


BRANCH 


0019C4 


1989 








3461 


FSLC 


CR 


RP,RQ 


TEST IF RP=RQ 


0C19C6 


4760 


07F6 




007F6 


3462 




BC 


8, ENTRYl 


YES, RETURN TO INTER. LOOP 


0019CA 


96F0 


8000 


00000 




3463 




01 


0(RP),X'FO» 


NO, CLEAR POSSIBLE FLAG 


0019CE 


4168 


0001 




00001 


3464 


FSLE 


LA 


RP,1(RP) 


RP=RP+1 


0019D2 


1989 








3465 




CR 


RP,RQ 


TEST IF RP=RQ 


0019D4 


4780 


39E0 




019E0 


3466 




BE 


FSLD 


YES, BRANCH 


001908 


92F0 


6000 


00000 




3467 




MVI 


0(RP),X*FO' 


NO, MOVE TO' TO P ADDRESS 


0019DC 


47F0 


39CE 




019CE 


3466 




B 


FSLE 


BRANCH 


G0i9E0 


94F0 


9000 


00000 




3469 FSLD 


NI 


0(RQ),X»FO' 


MOVE FLAG FROM Q TO P 


0019E4 


47F0 


07F6 




0G7F6 


3470 




B 


ENTRYl 


RETURN TO INTER. LOOP 



A2SB 1620 SIMULATOR 
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PAGE 93 



STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/61 



3473 ^ ^ 

3474^ 'SHIFT' SUBROUTINE * 

3475 * * 

3476 * THIS SUBROUTINE IS REQUIRED FOR SHIFT OPERATIONS IN FLOATING-ADD * 

3477 * AND FL0ATIH6-SUBTRAGT INSTRUCTIONS, WHEN THE P AND Q EXPONENTS * 

3478 ^ ARE DIFFERENT. * 

3479 ^ ^ 



UUiVLo 


0690 








CUTCT 

0(1 ir 1 


dL IK 


Ky ? U 


Dn-DH— 9 


UU iyCrt 


C690 










ot i K 


Dn ft 


Dn-Dn-9 
Kl^-Kl^ «t 


ftfi^ err 


0300 33A5 9000 


013AS 


uuuuu 








Ay jlbri 11 / > U k K(4 






0680 








onir 1 3 


RTTP 


Kr > U 


PD-PD-9 


UUi7r 4 


0680 










1 K 


DD n 
Kr > U 


Kr-Kr i 


UU1;{ b 


4120 31F6 




uiirp 






f A 
Ln 


>r lAnUU 


I HAH FTVAnn AnnpP'<;t; 


UUi7rH 


D300 33A4 8000 


013A4 


uuuuu 


'5£iAA 






HrDlurik 1 ^ > UvKr J 


jfiVtl r oluri 


nn 1/v pfii 


16AS 










i D 
LK 


WKl >Kr 


UP1 -PD 
WKi-Kr 


r>ni Aft*? 


F271 09D6 8001 


009D8 


UUUUl 


347U 




OAT!/ 


DUr rr 10 / > 11^ ,Kr J 


LUriVtKI tr lU DlhnKY 


uUirtUa 


4FB0 09D8 






aT7l 






UP9 R?(FFD 
NKi. >DUr rr 




UUiftUL 


F271 09D8 9001 009D8 


n n n 1 
UUUUl 






QArv 

rhL\\ 


our rr«.o-»jlv^>K{4/ 


LUriVtKI lU dlMriKY 




HrUU U>Uo 




UUVUO 






LVd 


wKo jDurr r 




UUxnio 






UinnU 


iHyH 




Dm 


yp9 IJP^ FDU 


CITHPF FP AMH Ffl 
□ lUKu Lr nriU LU{ 




IBBC 










CD 


WR2,NR3 


WK^-KKi~WKJ-tr~liy 


Art 4 A t ^ 


9G89 i9E6 




UU 7tO 


0470 




5 In 


DD Dh TWTTD 
Kr>Kl4>lMl Ir 


CAUF PD AKin on 

DHVC, Kr ftNU K(4 




1SC8 










LK 


WKojKr 


1 ID^-PD 
WKo-Kr 


rtrti AO*? 


41DD 0001 




UUUUl 


J47d 




1 A 
Ln 


? IDA 1 
WK4>1 


LfDA-1 -1 
WK4-1-L 




06C0 






j477 


CUTCTA 

onir IH 


PL i K 


KK J > U 


HK5-WK0 1 




41DD 0001 


osottd 


UUUUl 






1 A 
Ln 


HK4 5 1VWK4 J 




fini A^?r 


9120 COCO 








TM 

lit 








4710 3A26 






•J J vc. 






*\HTFTA 
uiiJir in 


Nn . 1 OOP 

Its/ > UiVvr 




128B 










1 TP 


UP?. UP? 


YF^.TFm UP? 


UU J.nOO 


078F 












15 


7FPrt .PFTIIPM 


001A38 


4720 3A8A 




01A6A 


3505 




BH 


SHIFTB 


HIGH, BRANCH 


001A3C 


D201 8001 9001 


00001 


00001 


3506 




MVC 


1(2,RP),1(RQ) 


LO^ER,MOVE EQ TO EP 


001A42 


D203 3AA0 3AA4 


OlAAO 


01AA4 


3507 




MVC 


£PH(4),EQH 


MOVE EQ TO EP 


001A43 


lOBB 






3506 




LPR 


NR2,NR2 


LOAD POSITIVE D 


001A4A 


19BD 






3509 




CR 


WR2,WR4 


IS WR2 LONER THAN L (WR4 = L) 


001A4C 


4740 3A72 




01A72 


3510 




BL 


SHIFTC 


YES, BRANCH 


001A50 


D200 8000 9000 


doooo 


00000 


3511 




MVC 


0(1,RP),0(RQ) 


NO, MOVE Q DIGIT TO P DIGIT 


001A56 


D300 8000 33AS 


ooodo 


013A5 


3512 




MV2 


0(1,RP),AQSIGN 


SET P SIGN 


001A5C 


0680 






3513 


SHIFTE 


BCTR 


RP,0 


RP=RP-1 


001A5E 


0690 






3514 




BCTR 


RQ,0 


RQ=RQ-1 


001A60 


D200 3000 9000 


00000 


00000 


3515 




MVC 


0(1,RP),0(RQ) 
0(RQ),X'20' 


MOVE Q DIGIT TO P DIGIT 


001A66 


9120 9000 


DOOOO 




3516 




TM 


IS Q FIELD FLAGGED 


001A6A 


4710 3A5C 




01A5G 


3517 




BO 


SHIFTE 


NO, LOOP 


OOIAGE 


47F0 3E62 




01B62 


3518 




B 


SHIFTF 


YES, GO TO NORMALIZATION 


001A72 


1898 






3519 


SHIFTC 


LR 


RQ,RP 


RQ=RP 


001A74 


1S9B 






3520 




SR 


RQ,WR2 


RQ=RP-D 


001A76 


45E0 3980 




01980 


3521 




BAL 


14,FSRC 


GO TO SHIFT RIGHT 


001A7A 


94D0 9000 


dddoo 




3522 




NI 


0(RQ),X''DO» 


SET FLAG 


001A7E 


1A93 






3523 




AR 


RQ,NR2 




001A80 


96F0 9000 


00000 




3524 




01 


0(RQ),X'FO'' 


CLEAR FLAG 


001A64 


9889 09E6 




0C9E8 


3525 




LM 


RP,RQ,INITP 


RESTORE RP,RQ ADDRESSES 



A2Se 162C SIHULATOR 



LOC 


OBJFCT rODF 


rtuUi\x nij>i>t\c. 


^TMT SOURCF 

(J i i i 1 *}vUF\wL. 


STATEHENT 


0G1AQ8 


07PF 




352G 


BR 


15 




19BD 






CR 


WR2,WR^ 


001A6C 


^7A0 3862 


G1B62 


3528 


BC 


10,SHIFTF 




1B9B 






SR 


RQ,WR2 


U V An 7 z. 


nr .L £. iM y U V nf 


W V> V VT 




LA 


R2,4(R2) 


001A9G 


9^F0 321F 


0121F 


3531 


01 


ADD5n,X'F0' 


001A9A 


96F0 6000 


00000 


3532 


01 


0(RP),X'F0» 


00iA9E 


07FF 




3533 


BR 


15 


OOIAAO 






3535 


D5 


OD 


OOIAAO 






3536 EPH 


DS 


F 


OOIAAO 






3537 EQH 


DS 


F 
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RETURN 

IS WR2 LOWER THAN WR4 

NO, GO TO NORMALIZATION 

YES, RQ=RQ-WR2 

R2=R2+4 

SET SWITCH ON 

DELETE P SIGN 

RETURN 



P EXPONENT 
Q EXPONENT 



A2SB 



1620 SIHULATOR 
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LOG OBJECT CODE ADDRi ADDR2 STMT SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



3539 
35A0 
35<ti 
35^2 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 



FLOATING ADD 

THE P AND Q ADDRESSES ARE CONVERTED TO BINARY BEFORE ENTERING 
THE 'SHIFT' SUBROUTINE. TABLES ARE THEN PREPARED FOR THE 'FIXADD' 
SUBROUTINE. ITS SPECIAL EXIT GIVES CONTROL TO NORMALIZATION AND 
ITS NORMAL EXIT TESTS TH^ LAST CARRY, IF ONE, A SHIFT OF ONE PO- 
SITION TO THE RIGHT OF THE RESULTING FIELD IS PERFORMED, AND A 
FLAGGED ONE IS MOVED TO ITS LEFTMOST DIGIT. IF ZERO, CONTROL IS 
GIVEN TO NORMALIZATION. HOWEVER, BOTH EXITS LEAD TO THE 'EXPOW 
SUBROUTINE 14HICH SETS THE INDICATORS TO THE PROPER VALUE ACCORD- 
ING TO THE RESULTING EXPONENT AND MANTISSA VALUES. 
IN THE NORMALIZATION SEQUENCE, THE RESULTING FIELD IS SCANNED FOR 
HIGH-ORDER ZEROS. THE MANTISSA IS SHIFTED AND THE EXPONENT IS 
MODIFIED. IF EXPONENT MODIFICATION IS NOT REQUIRED, CONTROL IS 
GIVEN TO THE 'INDIC SUBROUTINE WHICH UPDATES THE H/P AND E/Z IN- 
DICATORS AND THEN RETURNS TO THE CALLING SEQUENCE- 



001AA8 


45F0 


0902 




00902 


3560 


FADDOl 


BAL 


15,C0NVPQ 


CONVERT P AND Q ADDRESSES 


OOIAAC 


4b'F0 


3SE6 




019E8 


3561 




EAL 


15, SHIFT 


SHIFT SUBROUTINE 


OOIABO 


18A9 








3562 


FADD5 


LR 


MR1,RP 


WR1=RP 


001AB2 


13B9 








3563 




LR 


WR2,RQ 


NR2=RQ 


001AB4 


05F2 








3564 




BALR 


15, R2 


FIXADD SUBROUTINE 


001AB6 


47F0 


3B0E 




OIBOE 


3565 




B 


FADDA 


SPECIAL EXIT, GO TO NORMALIZAT. 


OOIABA 


12EE 








3566 


FADD2 


LTR 


NR5,NR5 


NORMAL EXIT, TEST LAST CARRY 


OOIABC 


4760 


380E 




OIBOE 


3567 




BE 


FADDA 


IF ZERO, GO TO NORMALIZATION 


OOIACO 


5BB0 


09E8 




C09E8 


3568 




L 


WR2,INITP 


IF ONE, WR2=RP 


001AC4 


0630 








3569 




BCTR 


WR2,0 


NR2=RP-1 


0aiAC6 


DlOO 


BGOl BOOO 


00001 


00000 


3570 


FADDl 


MVN 


1(1,WR2),0(NR2) 


MOVE NUMERIC FROM 0(WR2) 


OOIACC 


912Q 


BOOO 


00000 




3571 




TH 


0(WR2),X»20' 


IS 0(WR2) FLAGGED 


OOIADO 


4780 






01AD3 


3572 




BC 


8, FADDC 


YES BRANCH 


001AD4 


46B0 


3AC6 




01AC6 


3573 




BCT 


WR2, FADDl 


NO, LOOP 


OOIADS 


92D1 


BOOO 


00000 




3574 


FADDC 


MVI 


0(WR2),X^D1' 


MOVE 'Dl' TO WR2 


OOIADC 


18C0 








3575 




LR 


WR3,0 


% 


OOIADE 


06C0 








3576 




BCTR 


WR3,0 


WR3=-1 


OOIAEO 


56G0 


09E8 




009E8 


3577 


FADDB 


L 


RP,INITP 


RESTORE P ADDRESS 


001AE4 


S6D0 


3AA0 




OlAAO 


3578 




L 


WR4,EPH 




001AE3 


IBDC 








3579 




SR 


NR4>I4R3 


WR4=EP-NR3 


00 IAEA 


45F0 


3B9A 




01B9A 


3580 




BAL 


15,EXP0W 


EXPOW SUBROUTINE 


OOIAEE 


47F0 


3862 




01B62 


3581 




B 


SHIFTF 


RETURN TO 'SHIFT' SUBROUTINE 


001AF2 


47F0 


3B02 




01B02 


3582 




B 


OFL 


O'FLOW 


001AF6 


9201 


0003 


00003 




3583 


FADDX 


MVI 


HPEZ,X'01' 


U'FLOW 


OOIAFA 


45F0 


3598 




01598 


3584 


FADD9 


BAL 


15,EXCHK 


EXCHK SUBROUTINE 


OOIAFE 


47F0 


07F6 




007F6 


3535 




B 


ENTRYO 


RETURN TO INTERPRETIVE LOOP 


001B02 


58A0 


09E8 




009E8 


3586 


OFL 


L 


WR1,INITP 


WR1=P ADDRESS 


001B06 


45F0 


3548 




01548 


3587 




BAL 


15,IN0IC 


INDIC SUBROUTINE 


DOIBOA 


47F0 


3AFA 




OlAFA 


3586 




B 


FADD9 


BRANCH 



3590 ^ 



NORMALIZATION 



A2SB 



1620 SIHULATOR 



1 nr 


OBJECT CODE 


AD6R1 AD0R2 


□ 1 n i 




STATEHENT 




5860 


09E8 




009E8 




r rlUUn 


L 


RP,INITP 




iSBA 












LR 


WR2,WR1 


UUibi-r 


18C0 












LR 


WR3.0 


UUlDlb 


910F 


BOOO 


00000 






rftuUU 


TM 


0CNR2),X'0F' 


UuiDlB 


4780 


3850 




01B50 






BZ 


FADB3 


UUxdill 


i2CC 








33 7/ 




LTR 


WR3,WR3 


A flj 1 D O fj 

UuioZu 


4780 


3B62 




01B62 


0J7O 




BE 


SHIFTF 


UUIbZ-t 


18DA 












LR 


WR4,NR1 


UUin^b 


0100 


DQOO BOOO 


00000 


00000 


^dnn 


rnUUo 


HVN 


0(1,WR4),0(WR2) 




19B8 








CJbUl 




CR 


WR2,RP 


UUxD/X 


4760 


3B3E 




01B3E 






BE 


FA0B4 




41Be 


COOl 




00001 






LA 


WR2,1(I4R2) 




41DD 


COOl 




COOOi 


3604 




LA 


NR4,1(NR4) 


UU 10 OH 


47F0 


3826 




01B26 


3605 




B 


FADD6 


nni R^r 

UUXD jC. 


41DD 


0001 




00001 


3606 


FADD4 


LA 


NR4,1(NR4) 


UUXoHc 


94F0 


DDGO 


odboo 




3607 




NI 


0(WR4),K'F0' 


001B46 


19B3 








3608 




CR 


WR4,RP 


OOIB^S 


4780 


3AE0 




OlAEO 


3609 




BE 


FADDB 


nni Rf'tT 


47F0 


3B3E 




01B3E 


3610 




B 


FA0D4 


001B50 


19B8 








3611 FADD3 


CR 


WR2,RP 


001B52 


4780 


3B62 




01B62 


3612 




BE 


SHIFTF 


nni 


41CC 


0001 




00001 


3613 




LA 


WR3,1(NR3) 


nni Rc:& 


41B3 


QQOl 




00001 


3614 




LA 


WR2,1(NR2) 




47F0 


3B16 




01B16 


3615 




B 


FADDU 


nniP{^9 


58A0 


09E8 




009E8 


3617 


SHIFTF 


L 


WR1,INITP 


001B6S 


168A 








3618 




LR 


RP,WR1 


001B6S 


45F0 


3548 




01548 


3619 




BAL 


15,IHDIC 


001B6C 


9501 


0003 


00003 




3620 




GLI 


HPEZ,X'01' 


001870 


4770 


07F6 




007F6 


3621 




BNE 


ENTRYO 


001B74 


9209 


8001 


00001 




3622 




HVI 


1(RP),X'D9* 


001B78 


92D9 


6002 


00002 




3623 




HVI 


2(RP),K'D9'' 


001B7C 


47F0 


07F6 




007F6 


3624 




B 


ENTRYO 
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RESTORE P ADDRESS 

WR2=WR1 

NR3=0 

IS 0(WR2) NUMERIC =0 
YES, BRANCH 
NO, IS WR3=0 
YES, BRANCH 
N0,WR4=WR1 

MOVE NUMERIC FROM MR2 TO WR4 

IS WR2= P ADDRESS 

YES, BRANCH 

N0,WR2=k^R2+l 

14R4=WR4+1 

LOOP 

NR4=WR4+1 

NI WITH 'FO' AT WR4 ADDRESS 

IS WR4=RP 
YES, BRANCH 
NO, LOOP 
IS WR2=RP 
YES BRANCH 

NO, INCREMENT WR3 BY 1 
INCREMENT 14R2 BY 1 
LOOP 



NR1= P ADDRESS 
RP=P ADDRESS 
INDIC SUBROUTINE 
IS E/Z ON 

NO, RETURN TO INTER. LOOP 
YES, SET P EXPONENT = -99 

RETURN TO INTER. LOOP 



A2S3 1620 SIMULATOR 

LOC OBJECT CODE ADDRi ADDR2 
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3627 * ^ 

3628 ^ FLOATING SUBTRACT ^ 

3629 * ^ 

3630 ^ THE P AND Q ADDRESSES ARE CONVERTED TO BINARY BEFORE ENTERING ^ 

3631 ^ THE 'SHIFT' SUBROUTINE. THE Q SIGN IS INVERTED AND CONTROL IS ^ 

3632 * THEN GIVEN TO THE FL0ATIN6-ABD ROUTINE (FADD5). ^ 

3633 ^ ^ 



001B80 45F0 0902 
001834 0690 
001B86 0690 
001865 D300 33A5 
0018BE 9720 33A5 
001892 45F0 39F2 
001B96 47F0 3AB0 



00902 



9000 013A5 00000 
813A5 

019F2 
OlABO 



3636 FSUB02 

3637 

3633 

3639 

3640 

3641 

3642 



BAL 15,C0NVPQ 

BCTR RQ,0 

BCTR RQ,0 

MVZ AQSIGN(1),0(RQ) 

XI AQSIGN,X'20' 

BAL 15, SHIFTS 
B FADD5 



CONVERT P AND Q ADDRESSES 

RQ=RQ-2 

SAVE Q SIGN 
INVERT Q SIGN 
SHIFT SUBROUTINE 



3645 •^^^*^^^^^^^»*&*^^^*^^^^^^^^*«^*^^*f*^^^t«**^^^5(*5f9^9*«9«9^^^9e**^9f5€9t«%^X9€X^ 



3646 * * 

3647 ^ 'EKPOH' SUBROUTINE * 

3648 * * 

3649 ^ THIS SUBROUTINE IS REQUIRED IN FLOATING-POINT OPERATIONS TO CHECK ^ 

3650 * THE VALUE OF THE RESULTING EXPONENT (OVERFLOW). * 

3651 5f ^ 

3652 ^ B^PUT WR4 CONTAINS THE EXPONENT RESULTING FROM THE PREVIOUS * 

3653 ^ OPERATION * 

3654 ^ ^ 



3655 ^^***^^^f^^*^^^^^f5^^*^5tX9*^^*^^«**^*9*^^%^^^f*^9f9f9f9t*$e**^*^^e*^^*^**9t*^ 



00189A 


41A0 


0063 




00063 


3657 


EXPOW 


LA 


NR1,99 


NR1=99 


001B9E 


19DA 








3658 




CR 


WR4,NR1 


IS WR4 GREATER THAN 99 


OOIBAO 


4720 


3BC8 




01BC8 


3659 




BH 


EXPIAB 


YES, BRANCH 


00ieA4 


llAA 








3660 




LNR 


WR1,MR1 


NO, SET WRl=-99 


OOIDrG 


19DA 








3661 




CR 


WR4,NR1' 


IS WR4 LESS THAN -99 


001EA3 


4740 


3BF0 




013F0 


3662 




BL 


EXP2A8 


YES, BRANCH 


ooibAc 


4ED0 


3AA0 




OlAAO 


3663 




CVD 


1IR4,EPH 


NO, CONVERT WR4 TO DECIMAL 


OOiBBO 


9101 


3AA7 


01AA7 




3664 




TM 


EQH+3,X'01» 


TEST SIGN 


001584 


4710 


3BBC 




01B8C 


3665 




BC 


1,^+6 


IF D, BRANCH 


OOIBES 


960F 


3AA7 


01AA7 




3666 




01 


EQH+3,X'0F* 


IF C, CONVERT TO F 


OOIBEC 


F311 


3001 3AA6 


00001 


01AA6 


3667 




UNPK 


l(2,RP),EQH+2(2) 


UNPACK EP IN P FIELD 


001BC2 


94DF 


8001 


00001 




3668 




NI 


1(RP),X'DF' 


MOVE FLAG 


0018C6 


07FF 








3669 




BR 


15 


RETURN 


001BC6 


9209 


8001 


00001 




3670 


EXPIAB 


HVI 


1(RP),X'D9' 




0018CC 


92F9 


6002 


00002 




3671 




HVI 


2(RP),X'F9' 


EP='D9F9» 


001800 


18A3 








3672 




LR 


WR1,RP 


14R1=RP 


OOiBDZ 


94F0 


AOCO 


00000 




3673 




NI 


0(14R1),XT0' 




001806 


9609 


AOOO 


00000 




3674 




01 


0(yRl),X'09' 


FILL MANTISSA WITH NINES 


0018DA 


C6A0 








3675 


EXP3 


BCTR 


WR1,0 


WR1=WR1-1 


0018DC 


94F0 


AOOO 


00000 




3676 




NI 


0(WR1),XT0' 





A2S8 



1620 SIMULATOR 



LOC 


OBJFCT CODE 


ADBRl 


ADDR2 




9609 AOOQ 


00000 

U V U V U 




001BE4 


9120 4000 


OOOQO 

y w V w V/ 




001RF8 






OlBDA 


OOIBEC 

V W X £w» Um W 


47FF 000^ 




0000^ 


OOiBFO 


92D9 6001 


00801 




OOlBF^f 


92D9 8002 


00002 




OOIEFB 


18A6 






OOIBFA 


9'^FO AOOO 


00000 




OOIBFE 


06A0 






OOlCOO 


94F0 AOOO 


00000 




00iC04 


9120 AOOO 


00000 




001C08 


^710 38FE 




OIBFE 


OOlCOC 


47FF 0008 




00008 



STHT SOURCE STATEHENT 



3677 




01 




3678 




TM 


0(WR1) •X'2Q'' 


3679 




BO 


EXP 3 


3680 




B 


^(15) 


3661 EXP2AB 


HVI 


1(RP),X^D9* 


3682 




HVI 




3663 




LR 


WR1,RP 


366^t 




NI 


0(WR1),X'F0» 


3685 


EXP4 


BCTR 


I4R1,0 


3686 




NI 


0(WR1),X'FO' 


3687 




TM 


0(WR1),X'20' 


3688 




BO 


EXP^ 


3669 




B 


8(15) 


3690 




AGO 


.FLOXl 


3691 


.FLOXl 


ANOP 




3692 




AIF 


(NOT &INDEX) 



PAGE 98 



ASM H V 05 22.10 05/07/81 

FILL MANTISSA WITH ZEROS 
IS O(NRl) FLAGGED 
NO, LOOP 

YES, RETURN TO <h (15) 

9* 

EP= 'D9D9* 
HR1=RP 
0(WR1)='F0» 
WR1=WR1 -1 

SET'FO' OR 'D0» IN MANTISSA 
IS O(NRl) FLAGGED 
NO, LOOP 

YES, RETURN TO 8(15) 



A2SB 1620 SIMULATOR 

LOG OBJECT CODE ADDRl ADDR2 



PAGE 99 



STHT SOURCE STATEMENT ASM H V 05 22,10 05/07/61 



3695 ^ ^ 

3696 « SECTION 6 * 

3697 * INDEX REGISTER OPERATIONS * 

3698 « * 

3699 ^ AFTER MODIFICATION OF THE INDEX REGISTERS, THE NEW INDEX REGISTER * 

3700 * FIELD CONTAINS THE ALGEBRAIC SUM OF THE CONTENTS OF THE OLD FIELD * 

3701 « AND THE MODIFIER. * 

3702 * * 



3705 ^€^$^«^^«*e5€9««^*^5€9^«^€^i^9f^*65«»^^(^f9€*9*9^9(*^^9^^^e5«*^5«^«^*^^f^^*^^f^9^9«^9^*$t*96*^9e^ 

3706 ^ * 

3707 * BRANCH AND TRANSMIT ADDRESS * 

3708 ^ * 







U7U*i. ' 




00902 


Of JLX 


BTA70 


unt. 


1 1; , roNVPO 


CONVERT P AND Q ADDRESSES 






T xr1J> 


nnnr 

Uvvw 












UR1 .17CrNTRl 

ri!\X>Xc.\.oii 


WRl = CNTR t12 




V U X l> X w 


50A0 


^134 




01134 

vXXO~ 


3713 




ST 


14RKIR7 


STORE WRl IN IR2 




OOICIC 

V w <al» W «1> W 


1858 








3714 




LR 


CNTRjRP 


CNTR= P ADDRESS 




OOlClE 


41B0 


0^04 




00004 


3715 




LA 


ls'R2,4 
















3716 




SR 


RQ>WR2 


RQ=RQ-4 (DELETED) 


VlLl 












3717 




LA 


NR2,1(WR2) 


^ (DELETED) 


VlLl 












3716 




SR 


RP,WR2 


RP=RP-5 (DELETED) 


VlLl 












3719 


9^;' 


MVN 


0(5,RP),0(RQ) 
BTA20D+1,X'00' 


MOVE 5 NUMERICS (DELETED) VlLl 


001C22 


9200 


3C3D 


01C3D 




3720 




MVI 


SET SNITCH OFF 


VlLl 


001C26 


92BC 


3C49 


01C49 




3721 




MVI 


BTA20E+1,X'BC* 


SET BCTR ON 


VlLl 


001C2A 


41C0 


3C2E 




01C2E 


3722 




LA 


WR3,BTA20B 


ADDRESS FOR LOOP 


VlLl 


001C2E 


C680 








3723 


BTA20B 


BCTR 


RP,0 


RP=RP-1 


VlLl 


001C30 


1986 








3724 




CR 


RP,MAPORG 


TEST FOR WRAP AROUND 


VlLl 


001C32 


4740 


3C5A 




01C5A 


3725 




BL 


BTA20F 




VlLl 


001C36 


D200 


8000 9000 


00000 


00000 


3726 


BTA20C 


HVC 


0(1,RP),0(RQ) 


MOVE 1 CHARACTER 


VlLl 


001C3C 


4700 


3C6E 




01C6E 


3727 


BTA20D 


BC 


0,BTA20J 


IF ON, END OF TRANSMIT 


VlLl 


001C4C 


0690 








3728 




BCTR 


RQ,0 


RQ=RQ-1 


VlLl 


00iC^2 


1996 








3729 




CR 


RQ,HAPORG 


TEST FOR WRAP AROUND 


VlLl 


001C44 


4740 


3C60 




01C60 


3730 




BL 


BTA20G 


% 


VlLl 


OOlCM 


06BC 








3731 


BTA20E 


BCTR 


WR2>WR3 


IF WR2=0 NO BRANCH 


VlLl 


001C4A 


9400 


3C49 


Oie49 




3732 




NI 


BTA20Eil,X'00' 


SET BCTR OFF 


VlLl 


001C4E 


9120 


9000 


00000 




3733 




TM 


0(RQ),X'20* 


TEST IF FLAG 


VlLl 


001C52 


4780 


3C66 




01C66 


3734 




BC 


6,BTA20H 


YES BRANCH 


VlLl 


C01C56 


47F0 


3C2E 




01C2E 


3735 




B 


BTA20B 


NO LOOP 


VlLl 


001C5A 


1387 








3736 


BTA20F 


LR 


RP,5IZE 




VlLl 


001C5C 


47F0 


3C36 




01C36 


3737 




B 


BTA20C 




VlLl 


001C60 


1897 








3738 


BTA20G 


LR 


RQ,SI2E 




VlLl 


001C62 


47F0 


3C48 




01C48 


3739 




B 


BTA20E 




VlLl 


001C66 


96F0 


3C3D 


01C3D 




3740 


BTA20H 


01 


BTA20Dil,X'F0' 


SET SWITCH ON 


VlLl 


0C1C6A 


47F0 


3C2E 




01C2E 


3741 




B 


BTA20B 


GO TO MOVE LAST DIGIT 


VlLl 


001C6E 


IBOO 








3742 


BTA20J 


SR 


0,0 




VlLl 


001C70 


92F0 


31CD 


OllOD 




3743 




MVI 


Si4BB42n,X»F0'' 


SET SWITCH BTM,BT,BTFL ON 




001C74 


47F0 


0F44 




00F44 


3744 




B 


TEST8R 


GO TO TEST BRANCH ADDRESS 





A2SB 1620 SIHULATOR 

LOG OBJECT CODE ADORl ADDR2 
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STHT SOURCE STATEHENT ASH H V 05 22,10 05/07/81 



3747 *^9eiei«it9(^€9e^€9^**5e**^5^^^9f^?<9t)^^9^^^t9(9^i^**9t*^**5e5^*c^e^**^f9e9e9f5e9t**9t^x^*9t**^ 

3746 « * 

3749 ^ BRANCH AND TRANSMIT ADDRESS IMMEDIATE * 

3750 ^ * 

3751 ^^^^^^^^^^^^i^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^x^^^^^^^^^^x^^^^^^ 



001C78 4195 OOOB 
0C1C7C 45F0 0906 
001C80 47F0 3C14 



OOOOS 3753 BTAMIO 
00906 3754 
OICW 3755 



LA RQ,11(CNTR) 
BAL 15,C0NVP 
B BTA20A 



RQ=CNTR+11 
CONVERT P ADDRESS 
BRANCH TO BTA-20 



A2S8 1620 SIHULA TOR PAGE 101 

LOC OBJECT CODE ADORi ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

3758 * * 

3759 * MOVE ADDRESS * 

3760 ^ ^ 

3761 3^^*^^^^t^««^^^^*^^^^^^*^^^^^^^**^^^5^*^^«^^3C-**^969t*^9**^9t^eit9t5e^^t**^ 



001C3^{ ^5F0 09C2 00902 
001C88 41B0 000^ 0000^ 
OOlCaC 1E88 
001C8E 1B9B 

001C90 DiO^ 8000 900d 00000 00000 
001C96 ^7F0 07F6 007F6 



3763 MA7fl BAL 15,C0NVPQ 

3764 LA WR2,4 

3765 SR RP,WR2 

3766 SR RQ,WR2 

3767 MVN 0(5,RP),0(RQ) 

3768 B ENTRYl 



CONVERT P AND Q ADDRESSES 

RP = RP-4 
RQ = Rg-4 

HOVE 5 NUMERICS FROM Q TO P 
RETURN TO INTERPRETIVE LOOP 



A2Sfe 1620 SIMULATOR PAGE 102 

LOG OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

3771 * * 

3772 * BRANCH AND SELECT ^ 

3773 * ^ 
377^ ^ THE P ADDRESS IS CONVERTED TO BINARY AND DIGIT Qll (CNTR+11) IS * 

3775 ^ TESTED. ACCORDING TO THE TEST RESULT, THE »IXBAND' INDICATOR IS * 

3776 * SET TO 'NO BANDS 'BAND 1 SELECTED', OR 'BAND 2 SELECTED '(SEE THE * 

3777 * 'INDEX' SUBROUTINE), AND THE INDIRECT ADDRESSING SNITCH IS SET ON * 
3778^ OR OFF (SEE THE 'INDAD' SUBROUTINE). THE INSTRUCTION COUNTER IS * 

3779 ^ THEN LOADED WITH THE P ADDRESS, BEFORE CONTROL IS GIVEN TO 'BIR'- * 

3780 * ^ 
3731* NOTE = THE 'NO BAND" MODE IS SELECTED AT SIMULATOR INITIALIZATION * 
3782 * * 
3783 



001C9A 


45F0 


0906 




00906 


3785 


BS60 


BAL 


15,C0NVP 


CONVERT P ADDRESS 


001C9E 


4195 


0008 




00008 


3786 




LA 


RQ,11(CNTR) 


RQ=DIGIT Qll 


001CA2 


95F0 


9000 


00000 




3787 




CLI 


0(RQ),X'F0' 


Q11=0 


001CA6 


4770 


3C82 




01CB2 


3768 




BC 


7, BSl 


NO, BRANCH 


OOlCAA 


9204 


0006 


00006 




3789 




MVI 


IXBAND,X'04' 


YES, SET INDICATOR 30 ON 


OOlCAE 


47F0 


3CEE 




OICEE 


3790 




B 


BSE 


RETURN 


001CB2 


95Fi 


9000 


00000 




3791 


BSl 


CLI 


0(RQ),X'F1' 


Qll=l 


001CB6 


4770 


3CC2 




01CC2 


3792 




BC 


7,BS2 


NO, BRANCH 


OOlCBA 


9202 


0006 


C0006 




3793 




HVI 


IXBAND,X'02' 


YES, SET INDICATOR 31 ON 


001C2E 


47F0 


3CEE 




OICEE 


3794 




B 


BSE 


RETURN 


001CC2 


95F2 


9000 


00000 




3795 


BS2 


CLI 


0(RQ),X'F2' 


Qll=2 


D01CC6 


4770 


3CD2 




01CD2 


3796 




BC 


7,BS3 


NO, BRANCH 


OOlCCA 


9201 


0006 


00006 




3797 




MVI 


IXBAND,X'01' 


YES, SET INDICATOR 32 ON 


OOlCCE 


47F0 


3CEE 




OICEE 


3793 




B 


SSE 


RETURN 


001C02 


95F6 


9000 


00000 




3799 


BS3 


CLI 


0(RQ),X'F8' 


Qll=8 


G01CD6 


4770 


3CE2 




01CE2 


3300 




BC 


7,BS4 


NO, BRANCH 


OOlCDA 


92FE 


093D 


0093D 




3801 




MVI 


INDAD+1,X'FE' 


YES, SET IND. ADD, SWITCH OFF 


OOlCDE 


47F0 


3CEE 




OICEE 


3802 




B 


BSE 


RETURN 


001CE2 


95F9 


9500 


00000 




3803 


BS4 


CLI 


0(RQ),X'F9' 


Qll=9 


001CE6 


4770 


3CF4 




01CF4 


3804 




BC 


7, ERXOP 


NO, INVALID OPERATION 


OOlCEA 


9200 


093D 


0093D 




3805 




HVI 


INDAD+1,X'00' 


YES, SET IND. ADD. SWITCH ON 


OOlCEE 


1553 








3806 


BSE 


LR 


CNTR,RP 


CNTR = P ADDRESS 


OOlCFO 


47F0 


GF44 




00F44 


3807 




B 


TESTBR 


GO TO TEST BRANCH ADDRESS 


001CF4 


45F0 


00F4 




000F4 


3808 


ERXOP 


BAL 


15,MEST0P 




001CF6 


OOOOOIBI 






3609 




DC 


A(INVXOP) 


ERROR ON INDEX OPERATION 



A2S8 1620 SIHULATOR PAGE 103 
LOG OBJECT CODE ADDRl AD0R2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

BRANCH AND MODIFY * 

THE CONDITION SWITCH IS SET OFF. * 

THE Q ADDRESS IS FIRST CONVERTED TO BINARY WITHOUT CONSIDERING * 

ANY FLAGS, AND THEN THE P ADDRESS, WHICH MAY BE INDEXED AND AN * 

INDIRECT ADDRESS, IS CONVERTED. * 

CONTROL IS THEN GIVEN TO THE 'INDEX' SUBROUTINE WHICH COMPUTES * 

THE SYSTEM/360 EFFECTIVE ADDRESS OF THE INDEX REGISTER SPECIFIED * 

BY THE Q FLAGS. THIS ADDRESS IS LOADED INTO REGISTER WR2. ^ 

THE FIELD DESIGNATED BY THE Q ADDRESS (RQ) IS ADDED TO THE SE- ^ 

LECTED REGISTER BY LOADING RP WITH THE INDEX REGISTER ADDRESS IN * 

WR2. CONTROL IS GIVEN TO THE 'FIXADD' SUBROUTINE AND INDICATORS * 

HP/EZ ARE UPDATED IN THE 'INDIC SUBROUTINE. * 

THE CONDITION SWITCH IS TESTED = ^ 

IF ON, THE SELECTED INDEX REGISTER IS TESTED FOR THE THREE CONDI- ^ 

TIONS 'SIGN CHANGE', 'SIGN VALUE NULL', 'LAST CARRY'. IF ONE OF ^ 

THESE THREE CONDITIONS IS PRESENT, LOADING OF THE P ADDRESS INTO * 

'CNTR' WILL BE BYPASSED. IF NONE IS PRESENT, THE P ADDRESS IS * 

LOADED. * 

IF off; THE THREE PRECEDING TESTS ARE NOT PERFORMED, AND THE COUN- ^ 

TER IS DIRECTLY LOADED. * 

FINALLY, THE Q FIELD tS TESTED. IF NOT EXHAUSTED, THE OVERFLOW * 

INDICATOR IS SET ON BY THE 'ARCHK' SUBROUTINE. * 



STMT 




3311 




3312 




3613 




3814 




3815 




3816 




3817 




3818 




3819 












3822 




3623 




3824 




3825 




3826 




3827 




3828 




3629 




3830 




3631 




1812 




1833 




1R14 




3635 




3336 




3837 




3838 




3839 




3640 




3841 




3842 





NOTE = 

THE INSTRUCTIONS BX-61, BXM-62, BCX-63, BCXM-64 AND BLX-65 ARE 

BASICALLY THE SAME ROUTINES. THEREFORE, ONLY BX-61 IS DESCRIB- 
ED IN DETAIL. 



OOlCFC 


92F0 


3D63 


01D63 




3844 


BX61 


MVI 


BXA-M,X'F0» 


SET CONDITION SWITCH OFF 


OOIDOO 


9200 


3D45 


01D45 




3845 




MVI 


BXG+1,0 


SET BXG SWITCH OFF 


001D04 


D200 


34D0 


0006 014D0 


00006 


3846 


BXE 


MVC 


REGIS (1),IXBAND 


SAVE IXBAND INDICATOR 


OOIDOA 


9204 


0006 


00006 




3647 




MVI 


IXBAND,X'04' 


SET NO BAND INDICATOR ON 


OOIDGE 


9200 


0fC7 


009C7 




3848 




MVI 


INDXe+ljX'OO' 


SWITCH OFF, NO INDAD FOR Q 


001D12 


45F0 


09iE 




0091E 


3849 




BAL 


15,C0NVQ 


CONVERT Q ADDRESS 


D01D16 


92F0 


09C7 


009C7 




3650 




MVI 


INDX8+1,X'F0' 


RESTORE SWITCH 


OOIDIA 


D2G0 


0006 


3400 00006 C14D0 


3651 




MVC 


IXBAND(1),REG15 


RESTORE IXBAND INDICATOR 


001020 


45F0 


C906 




00906 


3852 


8XD 


BAL 


15,C0NVP 


CONVERT P ADDRESS 


001D24 


41A5 


0007 




00007 


3853 




LA 


WR1,7(CNTR) 


WRl=CNTRi7 


001D26 


50CO 


34D0 




014D0 


3654 




ST 


12>REG15 


SAVE R12 


00102C 


92FE 


09A1 


009A1 




3855 




MVI 


INDX4+5,X'FE' 


SET RETURN SWITCH ON 


001D30 


9200 


093D 


0098D 




3856 




MVI 


INDX3-f3,0 


SET NOP 


001D34 


45E0 


095C 




0095C 


3657 




BAL 


14, INDEX 


GO TO INDEX SUPROUTINE 


001D33 


9260 


C98D 


0098D 




3858 




MVI 


INDX3+3,X'80' 


CLEAR NOP 


001D3C 


9200 


09A1 


009A1 




3659 




MVI 


INDX4+5,0 


SET RETURN SWITCH OFF 


001040 


58C0 


34D0 




01400 


3660 




L 


12, REGIS 


RESTORE R12 


001D44 


07FC 








3661 


BXG 


BR 


12 


POSSIBLE RETURN TO BLX65/66 


001D46 


92FC 


3045 


01045 




3862 




MVI 


BXG+1,X'FC' 


SET BXG SWITCH ON 


0Q1D4A 


5030 


34D0 




014D0 


3663 




ST 


RP, REGIS 


SAVE P ADDRESS 


0C1D4E 


4iBB 






00004 


3664 




LA 


WR2,4(WR2) 


TAKE RIGHT IX ADDRESS 



A2SB 



U2Q SIMULATOR 



LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE 





XCOD 














I'J 


y£v U 


JX-^Li 




UxXnD 




oodo 




UU lUDD 


"t/ i U 


■31 Sir 






ni 1AF 






UUiylDL 














DAr 


UUIUDC 










nit^^'R 

UX3hO 


IR^vQ 

0^007 














mnAn 


^R7n 


OAfl 








A n n n 


ni '\ts^ 


UUUUu 


^R71 
Ouf X 






U J u u 




J) On? 


UXOnVr 


ni ^A'l 


'^A77 




UUXUr 










ni riR7 


qA7^ 

JO/ ^ 






7XUX 














UUxL><' r» 


4710 


3D32 






UXUOc. 


^A7^ 




UU xu/c 


46E0 


3DAD 






niDAn 






nni HA? 


95F0 


3231 




nTt?^i 




^A77 




UUXUuo 


4770 


0E26 








50/C 




UUXUUri 


4250 


DFt8 








^R7<5 




OOiDSE 


9101 


0FS3 




S0F58 




3880 




001092 


4760 


07F6 






007F6 


3681 




001D9G 


45F0 


00F4 






000F4 


3682 




00 109 A 


0000 














001D9C 


0000019D 








3633 




OOIDAO 


5350 


3400 






014D0 


3684 


BXB 


OOIDAA 


41C0 


OOOC 






ocooe 


3885 




001DA8 


1B5C 










3686 




001D^.A 


47F0 3D32 






01D82 


3887 
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STATEMENT 


ASM H V 05 ' 

n «ji i n V i 


LR 


RF>WR2 




MVI 


ADD4A+1,X'F0' 


uL. 1 oriX 1 Un vll 


B 


ADD5A 




LR 


NR1,RP 




BAL 


15,IMDIC 


TKirnrAinp^s iipdattwr 


BC 


NOP, BXB 


rnNnTTTHM <?UTTrH 

UUnuX i XUi^ uHXIUn 


MV2 


AQSIGN(1),0(RP) 


XD OHVU.U XA OXun r t\t-3tin 1 


CLC 


APSIGN(1),AQ5IGN 


XA QXUii 


BC 


7,BXC 




TM 
1 n 


HPF7 y ' ni » 

nri-4.>A ux 


T*^ F/7 

Xvl C/ Lm \}V\ 


BC 


1,BXC 


YES, BRANCH 


BCT 


WR5.BXB 


NO, TEST LAST CARRY 


CLI 


AQEND^-1,X'F0' 


Xo rsu^CMU \)\\ 


BC 


7,C24I 


W\ APTTHMFTTf rHFfl^ TF^TTKIH 
jnrvX 1 nnc, 1 xi- unu.Ui\ icdiXmv? 


STC 


CNTR,5TC 


iCoi Xr urvrii^un nUUrvtiOJ XJ 


TM 


STCX'Ol' 




BC 


8,ENTRY0 


YES. BRANCH 


BAL 


15,MEST0P 


ERROR, STOP SIMULATION 


DC 


A(NOBRAD) 




L 


CNTR, REGIS 


CNTR=RP 


LA 


yR3,12 


SUBTRACT 12 FROM CNTR 


SR 


CNTR>NR3 




B 


BXC 


BRANCH 



A2SB 1620 SIHULATOR 

LOC OBJECT CODE ADBRl A0DR2 
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STHT SOURCE STATEMENT ASM H V 05 22,10 05/07/61 



3891 ^«^*9*9t**^^^^«*^^^9^^^^5«^^^^«^«^^9^*^^^^^*^6*9t?t^**)^^^9tif^9f*9f9f96^9t9t*9t^*^ 

3892 « * 

3893 ^ BRANCH AND MODIFY IMMEDIATE * 
369^ ^ * 
3395 * THE CONDITION SWITCH IS SET OFF- ^ 

3896 ^ CONTROL IS THEN GIVEN TO BCXM-64 DESCRIBED BELOW. * 

3897 * ^ 
3896 



OOIDAE 92F0 3D63 01D63 3900 BXM62 MVI BKA+1,X'F0* 

001DB2 ^7F0 3fiC2 01DC2 3901 B BCXM64+4 



SET CONDITION SWITCH OFF 
BRANCH 



3903 
3904 
3905 
3906 
3907 
3903 
3909 
3910 
3911 



BRANCH CONDITIONALLY AND MODIFY 

THE CONDITION SWITCH IS SET ON. 

CONTROL IS THEN GIVEN TO THE Q ADDRESS CONVERSION 

BX-61. 



SUBROUTINE 



9f 

OF * 



001DB6 9200 3063 01D63 3913 BCX63 MVI 

OOIDBA OTO 3D00 OlDOO 3914 B 



BXA+1,X'00' 
BX61+4 



SET CONDITION SWITCH ON 
BRANCH 



3916 

3917 * 

3918 * 

3919 * 

3920 * 

3921 ^ 

3922 ^ 

3923 ^ 
3924 



BRANCH CONDITIONALLY AND MODIFY IMMEDIATE 



THE CONDITION SWITCH IS 
FIVE NUMERICS ARE MOVED 
IS THEN GIVEN TO THE P 



SET ON. 

FROM CNTR+7 TO A SMALL BUFFER- CONTROL 
ADDRESS CONVERSION SUBROUTINE OF BX-61, 



OOIDBE 


9200 


3063 




01D63 




3926 BCXM64 


MVI 


BXA^1,X'00'' 


SET CONDITION SWITCH ON 


001DC2 


D3G3 


0570 


3374 


00570 


01374 


3927 


MVZ 


FDIC(4),ATAB2 


SET 4 ZONES TO 'F' 


001DC8 


0103 


0570 


5007 


00570 


00007 


3923 


MVN 


FDIC(4),7(CNTR) 


STORE 4 NUMERIC DIGITS FROM 


OOIDCE 


D200 


0574 


500B 


00574 


OOOOB 


3929 


HVC 


FDICH(1),11(CNTR) 


STORE LAST DIGIT 


001DD4 


94DF 


0570 




00570 




3930 


NI 


FDICX'DF' 


SET FLAG 


001DD8 


4190 


0574 






00574 


3931 


LA 


RQ,FDIC+4 


RQ=FDIC+4 ADDRESS 


OOIDDC 


9200 


3D45 




01D45 




3932 


MVI 


BXG+1,0 


SET BXG SWITCH OFF 
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LOG OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

OOIDEO 47F0 3D20 01D20 3933 B BXD BRANCH 



3935 

3936 * * 

3937 * BRANCH AND LOAD ^ 
3933 * * 

3939 ^ CONTROL IS DIRECTLY GIVEN TO THE Q ADDRESS CONVERSION ROUTINE OF * 

3940 ^ BX"61, BUT IS RETURNED TO BLXl AFTER ADDING THE Q FIELD TO THE * 

3941 * INDEX REGISTER. ^ 

3942 * FIVE NUMERICS ARE MOVED FROM THE Q ADDRESS FIELD (WITH SIGN) TO * 

3943 * THE INDEX REGISTER ADDRESS, THE INSTRUCTION COUNTER IS LOADED * 

3944 * WITH THE P ADDRESS, AND THE ROUTINE PROCEEDS TO A VALIDITY CHECK * 

3945 * OF THE ADDRESS. * 

3946 * ^ 
3947 



0G1DE4 


45C0 


3D04 






01D04 


3949 


BLX65 


BAL 


12,BXE 


CONVERT Q ADDRESS 


001DE3 


4890 


09D0 






009DO 


3950 


BLXl 


SH 


RQ,DEC4 


RQ=RQ-4 


OOIDEC 


41A0 


0004 






00004 


3951 




LA 


RR1,4 


* V1L2 


OOIDFO 


lABA 










3952 




AR 


WR2,WR1 


* V1L2 


001DF2 


96F0 


BOOG 




00000 




3953 


BLX651 


01 


0(WR2),XT0' 


CLEAR RECEIVING AREA V1L2 


0G1DF6 


06B0 










3954 




BCTR 


WR2.0 


^ V1L2 


001DF6 


46A0 


30r2 






01DF2 


3955 




BCT 


WR1,BLX651 


^ V1L2 


OOiDFC 


D103 


BOOO 


9000 


00000 


00000 


3956 




MVN 


0(4,NR2),0(RQ) 


MOVE 5 NUMERIO FROM Q ADDR V1L2 


001E02 


D200 


B004 


9004 


00004 


00004 


3957 




MVC 


4(l,WR2),4(Rq) 
0(NR2),X^DF'' 


(WITH SIGN) TO WR2 ADDRESS 


001EG8 


940F 


BOOO 




00000 




3958 




NI 


SET IX FLAG 


OOIECC 


1658 










3959 


BLX2 


LR 


CNTRjRP 


CNTR=P ADDRESS 


OOIEOE 


47F0 


0F44 






00F44 


3960 




B 


TESTBR 


GO TO TEST BRANCH ADDRESS 



3963 ^ ^ 

3964 ^ BRANCH AND LOAD IMMEDIATE ^ 

3965 ^ * 

3966 ^ THE RQ REGISTER IS LOADED WITH CNTR+11. THEN, THE SEQUENCE CON- * 

3967 ^ TINUES AS FOR BLX-65 EXCEPT THAT IT STARTS WITH P ADDRESS CONVER- * 
3963 ^ 5I0N. * 
3969 ^ ^ 



3970 *6^*^^*^*i^^«i«*^^«^i^9<*****«**^*fX^^X*9«i«^$f^$f^^^*9^9«^^^*^^***^9tif9f*9t** 



001E12 4195 COOB 
001E16 45C0 3D20 
OOIEIA 47F0 3DE8 



OOOOB 
01D20 
01DE8 



3972 BLXH66 LA RQ,11(CNTR) 

3973 BAL 12, BXD 

3974 B BLXl 



Rg=CNTR+ll 

BRANCH 

BRANCH 
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LOC OBJECT CODE ADBRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22,10 05/07/81 

3977 * * 

3978 ^ BRANCH AND STORE * 

3979 ^ * 

3960 ^ THIS ROUTINE IS THE SAME AS THAT OF BLX-65, EXCEPT THAT FIVE NU- * 

3961 * MERICS ARE MOVED FROM THE INDEX REGISTER TO THE Q ADDRESS. * 

3982 * ^ 

3983 %^^^x9(^^^3«^^^^^^^^^^^^%^^^^^^^^^^^^^%^^x%xx^^%9(9(^x9()(%9(9e%9(^^^ 



OOIEIE 


45C0 


3D0^ 






01D04 


3985 
3986 


BSX67 


BAL 
SH 


12,BXE 
RQ,DEC4 


RQ=RQ-4 (DELETED) V1L2 


001E22 


41A0 


0004 






00004 


3987 




LA 


NR1,4 


* V1L2 


001E26 


96F0 


9000 




00000 




3988 


BSX67A 


01 


C(RQ),X'FO» 


CLEAR RECEIVING AREA V1L2 


001E2A 


0690 










3989 




BCTR 


RQ,0 


^ V1L2 


001E2C 


46A0 


3E26 






01E26 


3990 




OCT 


NR1,BSX67A 


* V1L2 


001E3D 


D103 


9000 


8000 


00000 


00000 


3991 




MVN 


0(4,RQ),0(NR2) 


MOVE 5 NUMERICS FROM WR2 ADDRESS 


001E36 


D20C 


9G04 


8004 


00004 


00004 


3992 




MVC 


4(1,RQ),4(UR2) 


(WITH SIGN) TO RQ ADDRESS 


001E3C 


9^DF 


9000 




OOGOO 




3993 




NI 


0(RQ),X»DF'' 


SET IX FLAG 


001E4Q 


47F0 


3E0C 






dlEOG 


3994 
3995 
3996 


.IXX3 


B 

AGO 
ANOP 


BLX2 
.IXX3 


BRANCH 



3997 DISKV DISK VERSION 
3993 * PRINT OFF 

3999 PUNCH • SLC 006000' 

4000 ^ PRINT ON 

4001 END 



A25B 
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LOG OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

4004 * ^ 

4005* READ ALPHAMERICALLY (TYPEWRITER) * 

400G ^ * 

4007 ^ THIS SEQUENCE LOADS THE ADDRESSES OF THE CODE CONVERSION FIELDS * 

4008 ^ FOR SUBSEQUENT USE BY THE 'HASK» SUBROUTINE. THE FIELD EXPANSION ^ 

4009 ^ SWITCH OF THE 'VALIN' SUBROUTINE IS SET ON, ^ 

4010 ^ THEN, CONTROL IS GIVEN TO THE 'READ NUMERICALLY* (TYPEWRITER) SE- * 

4011 ^ QUENCE DESCRIBED UNDER ^CONSOLE SIMULATION'. ^ 

4012 * * 

4013 *5e^^$e9t^t^^it^^)«^X^^t965t5t«^^^9^9^^9f^9€$69^3t*^5^Jf**9«X^9t*^*$f9t?e^ei«9(^^ 



001E44 41B0 05D5 
001E48 41A0 3E58 
001E4C 92F0 04B3 
001E50 9241 0511 
001E54 47F0 0204 



005D5 4015 RATY 

01E5B 4016 

004B3 4017 

00511 4016 

00204 4019 



LA WR2,TABLE2 

LA WR1,TBRATY 

MVI FLEXSW+1,K'F0' 

MVI MASK+1,K'41' 
B RNTYGO-4 



LOAD ADDRESSES OF CODE CON- 
VERSION TABLE 

SET FIELD EXPANSION SWITCH ON 
SET COMMAND MASK = 41 
BRANCH TO WRITE 



001E58 4E021C5FAA 4021 

001E5D 7BQ30A34AA33 4022 

001E63 COOOAA 4023 

001E66 4D0024 4024 

001E69 5D0004 4025 

001E6C 4C00AA 4026 

OOlEfeF 6C00AA 4027 

001E72 EOOOAA 4028 

001E75 400000 4029 

001E7a EF 4030 



T8RATY DC X'4E02105FAA' * 

DC X'7B030A34AA33' * 

DC X'COOdAA' * 

DC X'4D0024* 

DC X'5D0C04' 

DC X'4C00AA' 

DC X'6C00AA' 

DC X 'EOOOAA' * 

DC X'40C000' * 

DC X'EF' * 



A2SB 1620 SIMULATOR 
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LOG OBJECT CODE 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 



ASM H V 05 22.10 05/07/81 



4036 * THIS SEQUENCE FIRST PREPARES THE ADDRESSES NECESSARY FOR CODE CON- * 

403? * VERSION (SEE 'MASK' SUBROUTINE). IT SETS THE FIELD COMPRESSION * 

4038 * SWITCH IN THE 'VALOUT' SUBROUTINE OFF. NR3 IS GIVEN THE VALUE 0, * 

4039 ^ CORRESPONDING TO A STEP OF 1, TO AVOID THE 2 BYTES-IN-ONE-BYTE ^ 

4040 * ALPHABETIC MODE, AND CONTROL IS GIVEN TO THE 'GETEOR' SUBROUTINE * 

4041 ^ WHICH PROVIDES THE LENGTH OF THE FIELD TO BE WRITTEN. THEN, THE * 

4042 ^ SEQUENCE GOES TO THE *MASK' SUBROUTINE TO PREPARE THE CODE CON- * 

4043 * VERSION TABLE AT ADDRESS 128 (IF NECESSARY). ^ 

4045 ^ THE BYTE COUNT OBTAINED FROM THE ^GETEOR^ SUBROUTINE IS THEN COM- * 

4046 * PUTED, IF THE BYTE COUNT IS LOWER THAN OR EQUAL TO 100, ONE * 

4047 * SINGLE 'WRITE' OPERATION WILL BE EXECUTED. IF IT IS GREATER THAN ^ 

4048 * 100, A NEW LINE MUST BE WRITTEN WITH THE REMAINING BYTE COUNT. AN * 

4049 ^ EXIT SWITCH IS SET TO RESUME THE OUTPUT OPERATION ON THIS REMAIN- * 

4050 ^ ING FIELD. THE LOOP WILL BE PERFORMED UNTIL THE FIELD HAS BEEN ^ 

4051 ^ EXHAUSTED. ^ 
4052^ * 

4053 ^ WHEN THE COMPUTATION OF THE BYTE COUNT IS TERMINATED, CONTROL IS ^ 

4054 * GIVEN TO THE 'VALOUT' SUBROUTINE WHICH CONVERTS THE BYTES TO OUT- * 

4055 ^ PUT CODES AND MOVES THEM TO BUFFER '^lOBUFF', CONTROL IS GIVEN TO * 

4056 « THE 'TYPIO'^ SUBROUTINE WHICH PERFORMS THE 'WRITE" OPERATION PROP- ^ 

4057 * ER. * 
4055 * * 

4059 ^ NORMAL EXIT OF THE SEQUENCE IS TO 'BIR' THROUGH THE 'SWITCH INTER- ^ 

4060 * ROGATION' (ENTRY3) SUBROUTINE. HOWEVER, THE ERROR EXIT OF 'TYPIO' * 

4061 * GIVES CONTROL TO THE 'EXCRET' SUBROUTINE WHICH DISTINGUISHES BE- * 

4062 ^ TWEEN = * 

4063 * * 

4064 * - 'INTERVENTION REQUIRED' WHICH GIVES CONTROL TO 'ALARM' AND THEN * 

4065 « TRIES TO RESUME THE ENTIRE OPERATION ^ 

4066 ^ - 'UNIT EXCEPTION' WHICH IS CONSIDERED AS A CATASTROPHIC FAILURE * 

4067 * OF THE 1052 * 

4068 ^ - 'SENSE INDICATION' WHICH ALLOWS SETTING THE WRITE CHECK INDICA- * 

4069 ^ TOR 07 ON * 

4070 « « 

4071 %^^^^^^^^^9^^^^^^^9(l&#^^%^^^^^^^^^^^^^^^^^^^%x^%^%i^9^%%y^^^%«x^x^x%^^x^ 



4033 ^ 

4034 ^ 

4035 * 



WRITE NUMERICALLY (TYPEWRITER) 



001E79 00 



001E7A 4iB0 056A 
00iE7E 41A0 3EE6 
001E82 9200 43A9 
0ClEa6 9211 0511 
001E8A 41C0 0000 
001E8E 45F0 43F6 
001E92 13ED 



023A9 
00511 



0058A 4073 WNTY 
01EE6 4074 

4075 

4076 
00000 4077 
023F6 4076 WNTYl 

4079 
00510 4080 

4081 WNTYGO 
00064 4082 

4033 
00000 4084 



LA 

LA 

MVI 

MVI 

LA 

8AL 

LR 

BAL 

MVI 

LA 

CR 

BC 



WR2,TABLE1 

WR1,TBWNTY 

FLCO5Wil,X'00' 

MASK+l,X'll' 

WR3,0 

15,GETE0R 

WR5>WR4 

15, MASK 

WRISWI+1,X'00' 
15,100 
WR5,15 
BNH,WNTYG2 



LOAD ADDRESSES OF CODE CON- 
VERSION TABLE 

SET FIELD COMPRESSION SWITCH OFF 
SET COMMAND MASK = 11 



001EA2 0000 0000 



00i£94 45F0 0510 
001E96 9200 3ED9 
001E9C 41F0 0064 
OOIEAO 19EF 



01ED9 



SEARCH RECORD MARK 

LOAD LENGTH OF 'WRITE' INTO WR5 

PREPARE CODE CONVERSION TABLE 

SET EXIT SWITCH TO NORMAL 

R15=100 

IS WR5 GREATER THAN 100 
NO, BRANCH 



A2S3 im SIHULATOR 

LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEHENT 
IBim ERROR UNDEFINED 5YHB0L 

IEV029 ERROR INCORRECT REGISTER OR HASK SPECIFICATION 













SR 


i4R5 ,15 




xuur 






4086 


LR 


WR4,15 


00 IE A A 


92F0 HED9 


01ED9 




4087 


HVI 




OOIEAE 


¥.m 3EB9 




01EB9 


4033 WNTY63 


STG 




0G1EB2 


^5FG 43A2 




d23A2 


4089 


uriu. 


1*1 ^VaI OUT 










4090 ^ 


BAL 


i\ X > i II XV 


001E86 








4091 WNTY3 


DC 


A VVW7WXOT 


C01E8A 


OOCO , 












OOIEBC 


0G000HA3 






4092 


DC 




OOIECG 


^7F0 3ED3 




01E03 


4093 


R 


rSi%X«}riX 


00iEC4 


4700 0000 




00000 


4094 






ODiECS 


47F0 3F5C 




01F5C 


4095 


R 


rill i J nt- 


OOlSCC 


0000 0000 


00000 




4096 


TM 




IEVC4^ ^^>f ERROR 


UNDEFINED 5YHB0L 






OOIEDO 


4780 3F5C 




01F5C 


4097 


B2 


WNTYAL 


OOIEDH 


9640 0G02 


00002 




4098 


01 


NYCHEK,K'40» 


001ED3 


4700 3E93 




01E98 


4099 WRISWI 


BC 


N0P,f4NTYG0 


OOiEDC 


47F0 0262 




00262 


4100 


B 


TYPSWIf4 


OOIEEO 


180E 






4101 WNTYG2 


LR 


WR4>WR5 


001EE2 


47F0 3EAE 




OlEAE 


4102 


B 


WNTYG3 


OOIL'ES 


DF90AA 






4103 TBNNTY 


DC 


X'DFGOAA' 


001EE9 


DAOOAA 






4104 


DC 


X^DAOOAA' 


OOIEEC 


FAOOAA 






4105 


DC 


X 'FAOOAA* 


OOIEEF 


FFOOAA 






4106 


DC 


X'FFOOAA' 


001EF2 


FCD07C 






4107 


DC 


X»FC007C' 


D0iEF5 


EF 






4108 


DC 


X*£F* 
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ASH H V 05 22.10 05/07/81 



YES,WR5=WR5-100 
WR4=100 

SET RETRY SWITCH ON 

STORE DATA LENGTH IN CCW COUNT 

CHECK VALIDITY OF OUTPUT DATA 

CALL TYPEWRITER 

WRITE 100 BYTES FROM lOBUFF 



OK, EXIT 

U E, SHOULD NOT OCCUR, ALARM 
INT,REQ,,GO TO ALARM 
SENSE EXIT, TEST BITS 2+3 



ZERO, EXIT 

SET INDICATOR 07 ON 
•EXIT' OR 'RETRY' SWITCH 
INTERROGATE I/O INDICATOR 
WR4= WR5 
BRANCH 
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LOC OBJECT CODE AOORi ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

4111 ^ ^ 

4112^ WRITE ALPHAHERICALLY (TYPEHRITER) ^ 

4113 ^ * 

4114 ^ THIS SEQUENCE PREPARES THE ADDRESSES FOR CODE CONVERSION SO THAT ^ 

4115 * THEY CAN BE USED BY THE 'MASK' SUBROUTINE. IT SETS THE FIELD COM- * 

4116 * PRESSION SWITCH IN THE 'VALOUT' SUBROUTINE ON. WR3 IS LOADED WITH * 

4117 ^ 1 WHICH CORRESPONDS TO A STEP OF TWO. THIS ALLOWS CONDENSING TWO ^ 

4118 « ALPHAMERIC BYTES INTO ONE SINGLE OUTPUT CODE, THEN, CONTROL IS ^ 

4119 ^ GIVEN TO THE 'WRITE NUMERICALLY' (TYPEWRITER) SEQUENCE- * 

4120 ^ * 
4121 



001EF6 4180 0623 
OOIEFA 41A0 3F0E 
OOIEFE 92F0 43A9 
001F02 9251 0511 
001F06 41C0 0001 
OOIFCA 47F0 3E8E 



00623 4123 WATY 

OlFOE 4124 

023A9 4125 

00511 4126 

00001 4127 

01E8E 4128 



LA WR2,TABLE3 

LA WR1,TBWATY 

MVI FLCOSW+l^K'FO' 

MVI MASK-5-l>X'51' 

LA WR3,1 
B WNTYl 



LOAD ADDRESSES OF CODE CON- 
VERSION TABLE 

SET FIELD COMPRESSION SWITCH ON 
SET COMMAND MASK = 51 



OQIFOE 
OOlFll 
D01F14 
001F17 
OOIFIA 
OOIFID 
001F20 
001F23 
001F26 
001F29 



0A007B 
33007E 
24004D 
22007B 
O^GOSD 
IF 0 OA A 
10004E 
500060 
5F004F 
EF 



4130 TBWATY 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



X'0A007B' 
X'33007E' 
X'24004D' 
X'22007B' 
X'04005D' 
X'lFOOAA' 
X'10004E' 
X'500060' 
X'5F004F' 
X'EF' 



4142 ^ * 

4143 * DUMP NUMERICALLY (TYPEWRITER) * 

4144 * * 

4145 * THIS SEQUENCE COMPUTES THE MAXIMUM ADDRESS OF THE 20K MODULE, AND * 

4146 * COMPARES IT TO THE P ADDRESS. THE BYTE COUNT TO BE WRITTEN IS THUS * 

4147 ^ OBTAINED. ^ 



4148^ THEN, THE ADDRESSES FOR CODE CONVERSION ARE LOADED FOR USE BY THE * 

4149 ^ 'MASK' SUBROUTINE. THE FIELD COMPRESSION SWITCH IN THE 'VALOUT' * 

4150 * SUBROUTINE IS SET OFF. WR3 IS LOADED WITH ZERO FOR OPERATION IN ^ 

4151 ^ NUMERICAL MODE. CONTROL IS GIVEN DIRECTLY TO THE 'WRITE NUMER- * 



4152 ^ ICALLY' (TYPEWRITER) SEQUENCE, * 

4153 » * 

4154 * * 



001F2A 18E6 
001F2C 5AE0 3F50 
001F30 193E 
001F32 47A0 3F2C 



4157 DNTY LR WR5,MAP0RG 

01F50 4158 A WR5,DEC20K 

4159 CR RP,WR5 

01F2C 4160 BC 10,DNTY+2 



COMPARE P ADDRESS WITH MAXIMUM 
ADDRESS OF THE 20K MODULE 



A2SB 
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0 in 1 


SOURCE STATEHENT 


rtDn n V UD £.£. 


001F36 


1BE8 




4161 


SR 


WR5,RP 




001F38 


41B0 OSBA 


OOSBA 


4162 


LA 


WR2,TABLE1 


LOAD ADDRESSES OF CODE CON- 


001F3C 


41A0 3F54 


01F54 


4163 


LA 


WR1,TBDNTY 


VERSION TABLE 


001F40 


9291 0511 


00511 


4164 


HVI 


HASK+1,X»91» 


SET COHHAND MASK = 91 


0G1F44 


9200 43A9 


023A9 


4165 


HVI 


FLCOSH+1,X'00' 


SET C0HPRES5I0N SWITCH OFF 


00iF48 


41C0 GOOO 


00000 


4166 


LA 


WR3,0 


WR3=0 


001F4C 


47F0 3E94 


01E94 


4167 


B 


NNTYl+6 


BRANCH TO NRITE 



G01F50 00Ca4E20 



4169 DEC20K DC 



F'20000' 



MAXIMUM ADDRESS OF 20K MODULE 



001F54 FAOO'/B 
001F57 FC007C 
001F5A EF 



4171 TBDKTY 

4172 

4173 



DC 
DC 
DC 



X'FA007B' 
X»FCC07C'' 
X'EF» 



96 



001F5B 00 
001F5C 4510 0C60 
001F60 47F0 3EB2 



00060 4175 HNTYAL BAL Rl, ALARM 
01EB2 4176 B MNTY3-4 



96 



4179 ^^*96969^9696969696^96>c9*9fe^6969e9t9696969696^^96*9696969t9696^9€96^9696969^ 



4160 ^ * 

4181 ^ CONTROL OPERATIONS ON TYPEWRITER ^ 

4182 ^ * 

4183 ^ THIS SEQUENCE USES THE MAJOR PART OF THE 'MESSAG' SUBROUTINE, BUT ^ 

4164 * IT FIRST CHANGES THE REQUESTED WRITE COHMAND TO A 'WRITE INHIB- ^ 

4165 ^ IT CARRIAGE RETURN" COHMAND. THIS AVOIDS ANY POSSIBLE INTERFEREN- * 

4186 * CE BETWEEN THE 1620 CONTROL COMMAND AND THE 'WRITE AUTO CARRIAGE * 

4187 ^ RETURN' OF THE NORMAL 'MESSAG' SUBROUTINE. * 

4188 * * 

4189 ^ THE 1052 CONTROL CHARACTER IS OBTAINED FROM DIGIT Qll BY MEANS OF * 

4190 * TABLE 'KTAB'. IT IS SENT TO THE TYPEWRITER IN THE SAME WAY AS A ^ 

4191 * ONE-BYTE MESSAGE. * 

4192 * ^ 



4 19 3 9^*696*9(96^696969696^* 965^9696969696*96969^969696969696*»6969696*6^969696969696969696^9696969696*^ 



0CiF64 


9201 0080 OOOBO 




4195 
4196 


KTYPE 


MVI 


MESSIO+6,X»01» 


SET WRITE INHIBIT CARRIAGE RE- 
TURN COHMAND 


001F68 


13E0 




4197 




LR 


WR5.0 


96 


001F6A 


0100 07A9 500B 0C7A9 


OGOCB 


4198 




MVN 


AC0HA+1(1),11(CNTR) 


INSERT IN WR4 BINARY EQUIVALENT 


001F70 


40DO 07A8 


007A8 


4199 




LH 


WR4,AC0MA 


OF Qll 


001F74 


43ED 3F92 


01F92 


4200 
4201 


96 


IC 


WR5,KTAB(WR4) 


INSERT IN WR5 CHARACTER TO BE 
PRINTED 


001F78 


12EE 




4202 




LTR 


WR5,WR5 


IS CHARACTER VALID 


001F7A 


4780 07F6 


007F6 


4203 




BZ 


EN TRY 1 


NO, RETURN TO INTERPRETIVE LOOP 


001F7E 


42E0 3F91 


01F91 


4204 




STC 


WR5,KMESS+1 
15,MESSA2 


YES, STORE CONTROL COMMAND IN 


001F82 


45F0 006C 


0006C 


4205 




BAL 


MESSAGE BUFFER 


00iF86 


0000 














001F66 


00001F90 




4206 




DC 


A(KMESS) 




001F6C 


47F0 07F6 


007F6 


4207 




B 


ENTRYl 


RETURN TO INTERPRETIVE ROUTINE 


001F90 


0100 




4208 


KHESS 


DC 


X'OlOO' 


CONTROL COHHAND (BUFFER) 


001F92 


0040151625000000 




4209 


KTAB 


DC 


K'004015162500000005' 


TABLE OF CORRESFONDANCE WITH 



A2S8 



1620 SIHULATOR 
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LOC OBJECT CODE ADORl ADDR2 STHT SOURCE 5TATEHEHT 
0O1F98 00000000000000 ^210 DC X'OOOOOOOOOOOOOO' 



ASH H V 05 22.10 05/07/61 
1052 CONTROL COMMANDS 



^213 
^21^ 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 



READ ALPHAMERICALLY (CARD) 

THIS SEQUENCE LOADS THE ADDRESSES OF THE CODE CONVERSION FIELDS 
FOR SUBSEQUENT USE BY THE 'MASK' SUBROUTINE. THE FIELD EXPANSION 
SNITCH OF THE 'VALIN' SUBROUTINE IS SET ON. 

THEN, CONTROL IS GIVEN TO THE 'READ NUMERICALLY' (CARD) SEQUENCE 
DESCRIBED UNDER 'CONSOLE SIMULATION' 



001FA2 41B0 05D5 
001FA6 41A0 3F86 
OOIFAA 92F0 04B3 
OOIFAE 9245 0511 
001F82 47F0 0282 
001FB6 400000 
001FB9 EF 



00505 
01F86 



00483 
00511 



00282 



4225 
4226 
4227 
4228 
4229 
4230 
4231 



RACD 



TBRACD 



LA 

LA 

MVI 

MVI 

B 

DC 
DC 



NR2,TABLE2 
yRl, TBRACD 
FLEXS14n,X'F0' 
HASK+1,X'45' 

RNCDIA 
X'4G0000' 
X'EF' 



LOAD ADDRESSES OF CODE CON- 
VERSION TABLE 

SET FIELD EXPANSION SNITCH ON 
SET COMMAND MASK = 45 



A2S8 1620 SIMULATOR PAGE 114 

LOG OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

4234 * ^ 

4235* WRITE NUMERICALLY (CARD) * 

4236 * ^ 

4237 ^ THIS SEQUENCE FIRST PREPARES THE ADDRESSES NECESSARY FOR CODE CON- * 

4238 * VERSION (SEE 'MASK' SUBROUTINE). IT SETS THE 'DUMP CARD' SWITCH * 

4239 * AND THE FIELD COMPRESSION SWITCH IN THE 'VALOUT' SUBROUTINE OFF. * 

4240 ^ THE 'DUMP CARD' SWITCH IS USED BY THE 'DUMP NUMERICALLY (CARD)' ^ 

4241 * SEQUENCE REQUIRING A RETRY OF CARD PUNCHING UNTIL EXHAUSTION OF * 

4242 * THE DUMP. WR3 IS GIVEN THE VALUE ZERO CORRESPONDING TO A STEP OF * 

4243 * 1, TO AVOID THE TWO BYTES-IN-ONE-BYTE ALPHABETIC MODE *). * 

4244 * * 

4245 * THE SEQUENCE GOES TO THE 'MASK' SUBROUTINE AND, IF NECESSARY, PRE- * 

4246 * PARES THE CODE CONVERSION TABLE AT ADDRESS 126. * 

4247 * * 

4248 * THE 'VALOUT SUBROUTINE TRANSLATES THE OUTPUT DATA BYTES, CHECKS * 

4249 * THEM, AND MOVES THEM FROM CORE STORAGE TO 'lOBUFF'. * 

4250 * * 

4251 * THE SUPERVISOR CALL SVC 1 EMITS A WRITE OPERATION FOR 80 BYTES. ^ 

4252 * AS SOON AS THE REQUEST IS ACCEPTED, PROCESSING STOPS AT 'WNLOCK'. * 

4253 * AT CHANNEL END, THE CONTROL PROGRAM RETURNS CONTROL TO 'NRMWNC * 

4254 * WHICH UNLOCKS THE 'WAIT' SWITCH AND RETURNS TO THE POINT OF INTER- * 

4255 * RUPTION. ^ 

4256 * * 

4257 * THEN THE SEQUENCE EXITS TO 'ENTRY3' WHICH INTERROGATES AND DIS- * 

4258 * PLAYS WRITE INDICATOR 07 AND RETURNS TO 'BIR'. * 

4259 * * 

4260 * IN CASE OF AN ERROR CONDITION, THE 'EXCRET' SUBROUTINE IS ENTERED= ^ 

4261 * * 

4262 * - 'INTERVENTION REQUIRED' WILL CAUSE THE MESSAGE 'PUNCH/DISK IN- * 

4263 ^ TERLOGK' TO BE TYPED ON THE 1052. CONTROL IS THEN GIVEN TO 'BIR' * 

4264 ^ WITHOUT INCREMENTING THE INSTRUCTION COUNTER. THE PUNCH OPERA- * 

4265 * HON IS THUS RESUMED AS SOON AS THE DEVICE IS READY. * 

4266 * * 

4267 ^ - SENSE BITS 2 AND/OR 3 WILL CAUSE WRITE CHECK INDICATOR 07 TO BE * 

4268 * SET ON. * 

4269 * ^ 

4270 ^ - 'UNIT EXCEPTION' WILL BE HANDLED AS ANY OTHER CATASTROPHIC ER- * 

4271 * ROR WHICH SHOULD NOT OCCUR, I.E. A SPECIAL MESSAGE IS TYPED ON * 

4272 * THE 1052 AND SIMULATION STOPS (SEE 'EXCRET' SUBROUTINE). * 

4273 * ^ 

4274 * THE 'GETEOR' SUBROUTINE IS NOT USED BECAUSE THE OUTPUT OPERA- * 

4275 * TION ISSUES A COUNT OF 60 BYTES- * 

4276 *****^t*****^*^*******5f*«**^»3*«**^*9***&*»9^^^if***^^$f^e^^ 



OOIFBA 


4180 


058A 




0058A 


4278 


WNCD 


LA 


WR2,TABLE1 


LOAD ADDRESSES OF CODE CON- 


OOIFBE 


41A0 


4078 




02078 


4279 




LA 


WR1,TBWNCD 


VERSION TABLE 


001FC2 


9200 


4011 


02011 




4280 




HVI 


DUMCAR+1,X'00' 


SET DUMP CARD SWITCH OFF 


C0iFC6 


9214 


0511 


00511 




4281 




MVI 


MASK+1,X'14' 


SET COMMAND MASK = 14 


OOIFCA 


41C0 


0000 




00000 


4282 




LA 


WR3,0 




OOIFCE 


9200 


43A9 


023A9 




4283 




MVI 


FLCOSW+1,X'00' 


SET FIELD COMPRESSION SWITCH OFF 


001FD2 


45F0 


0510 




00510 


4284 


WNCDl 


BAL 


15, MASK 


LOOK FOR COD. CONV. TABLE 


001FD6 


41D0 


0050 




00050 


4265 




LA 


WR4,80 




OOIFDA 


45F0 


43A2 




023A2 


4286 




BAL 


15, VALOUT 


CHECK VALIDITY OF OUTPUT DATA 



A2S8 1620 SIMULATOR 



I or 


OR iFfT rnnF 




STMT SOURCE 


STATEMENT 








4287 * 






UUi.1 UL. 


070007300700 




4288 


CNOP 


4,8 








4289 WNCD2 OS OH 


SVC 1 




OOOD 




Hc.y\J 


nr 


X'OOOD* 


uuir Co 


0000 










UUir 


00002070 






UL 


A(WCDCCN) 


uuxi tit* 








U3 


C 


nnt FFH 






69Q'3 




3C 


uoir r u 


0000000006000000 


HZ7*i LbWrtHH 


UL 


X'0000000006000000 


u u i, r ' o 






4295 NNCPSW 


DS 


D 








4296 


DC 


A(NRMWNC) 




UUuUZU 




H£.7f 


UL 


A(EXCWNC) 




7^r u 4UUU 


uzuuu 


£i90R 


My T 
nvx 


HNLOCK^l,X'F0' 




47F0 400C 


0200C 


Hey 7 hMLULiN 


p 

D 




002010 


4700 4018 


02018 


/, onn nt imtad 
MoUU UUnLHK 


Dr 
dL 


NOP, ^+8 


00201A 


47F0 0262 


00262 




p 


TYPSHI+4 


U U u xu 


198E 






rD 
LK 


RP,WR5 




47A0 4014 


02014 




Dr 
dL 


lO,DUl1CAR+4 




41A6 0050 


00050 




I A 

Lh 


NR1,60(HAPOR6) 




198A 




4305 


ro 
LK 


RP,NR1 




4740 4014 


02014 


4306 


PI 


DUMCAR'^4 




47Fd 3FD6 


01FD6 


4307 


R 
D 


WNCDi+4 




9200 4000 


0200D 


4309 NRMWNC 


nVi 


HNLOCK4-1,X»00' 


002030 


92FF 3FF8 


01FF8 


4310 




WNCPSW,X'FF* 


002034 


0700 




4311 


LNUr 


2,4 








4312 ^ 


cur 
DvL 


3 


002056 


0000 










002038 


00001FF8 




4313 


nr 
UL 


A(NNCPSN) 


00203C 


5010 034C 


0034C 


4314 EKCNNC 


a 1 


R1,RNCSAV 


002040 


0000 0000 


00000 


4315 


R 
i3 


EXCR3 


IEV044 ERROR UNDEFINED SYHBOL 






002044 


47F0 4060 


02060 


4316 


B 


NNCDIR 


002048 


9130 3FED 


OlFED 


4317 


TM 


NNCERRH,X'30* 


00204C 


0000 0000 


00000 


4318 


BZ 


EXCR3 


IEVC44 ERROR 


UNDEFINED SYHBOL 






002050 


9640 0002 


00002 


4319 


01 


NYCHEK,X'40» 


002054 


4510 07B0 


007B0 


4320 


BAL 


R1,ENTRY3 


002058 


5610 034C 


0034C 


4321 


L 


R1,RNCSAV 


00205C 


47F0 4D2C 


0202C 


4322 


8 


NRHWNC 


002060 


5610 D34C 


0034C 


4323 WNCDIR 


L 


R1,RHCSAV 


002064 


45F0 dODC 


OOODC 


4324 


BAL 


15 ,MESTIR 








4325 *WNCDIR 


BAL 


15,MESTIR 


002068 


00000154 




4326 


DC A(PDLOK) 








4328 * 


2540 PUNCH PRESENT 


00206C 


00000000 










002070 


010003A820000050 


4329 NCDCCW 


CCN 


X»01MOBUFF,X'20' 


002078 


DOODDO 




4330 TBWNCD 


DC 


X'DOOODO' 


00207B 


EF 




4331 


DC 


X'EF* 
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ASM H V 05 22.10 05/07/81 



AND MOVE THEM 

I/O REQUEST AND INTERRUPT AT 
.FOR CARD PUNCH 



SET WAIT SNITCH ON 

ACCEPTED, NAIT SNITCH 

DUMP CARD SNITCH 

INTERROGATE I/O INDICATOR 

IS RP GREATER THAN OR EQUAL NR5 

YES, BRANCH 

NO, IS RP LESS THAN 

MAPORGi80 

YES, BRANCH 

NO, LOOP 



SET WAIT SNITCH OFF 
ENABLE INTERRUPTIONS 

RETURN TO POINT OF INTERRUPTION 



SAVE Rl V1L2 
UE, CATASTROPHIC DAMAGE 



INT.REQ.,GO TO SEND MESSAGE 
SENSE EXIT, TEST BITS 2+3 
IF NONE, CATASTROPHIC DAMAGE 



IF SOME, SET INDICATOR 07 ON 
INTERROGATE I/O INDICATORS 
RESTORE Rl V1L2 

RESTORE Rl V1L2 

SEND 'PUNCH/DISK INTERLOCK' V1L2 

SEND 'PUNCH/DISK KDELETED) V1L2 
MESSAGE TO OPERATOR AND STOP 



WRITE 80 BYTES (SLI FLAG) 



A2S6 1620 SIMULATOR 



PAGE IIG 



LOG OBJECT CODE ADDRl ADDR2 5THT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

^33^ * * 
^335* mTE ALPHAMERICALLY (CARD) ^ 

^33G ^ * 

^337 * THIS SEQUENCE PREPARES THE ADDRESSES FOR CODE CONVERSION SO THAT * 

^338 ^ THEY CAN BE USED BY THE 'MASK* SUBROUTINE. IT SETS THE FIELD COM- ^ 

4339 ^ PRESSION SWITCH IN THE 'VALOUT' SUBROUTINE ON, HR3 IS LOADED WITH * 

A340 * 1 NHICH CORRESPONDS TO A STEP OF TNO. THIS ALLOWS CONDENSING TWO ^ 

4341 ^ ALPHAMERIC BYTES INTO ONE SINGLE OUTPUT CODE. THEN, CONTROL IS * 

4342 * GIVEN TO THE 'WRITE NUMERICALLY' (CARD) SEQUENCE. * 

4343 * * 
4344 



00207C 41B0 0623 00623 
002080 41A0 4098 02098 
002084 9200 4011 02011 
002068 9254 0511 00511 
C0203C 41C0 0001 00001 
002090 92FG 43A9 023A9 
002094 47F0 3FD2 01FD2 
002098 160040 
002093 EF 



4346 


WACD 


LA 


WR2, TABLES 


4347 




LA 


WRl, TBWACD 


4348 




MVI 


DUMCARil,X'00' 


4349 




MVI 


MASK4-1,X'54' 


4350 




LA 


WR3,1 


4351 




HVI 


FLCOSW'i-l,X'F0'' 


4352 




B 


WNCDl 


4353 


TBWACD 


DC 


X»160040' 


4354 




DC 


X'EF' 



LOAD ADDRESSES OF CODE CON- 
VERSION TABLE 
SET DUMP CARD SWITCH OFF 
SET COMMAND MASK = 54 

SET FIELD COMPRESSION SWITCH ON 

¥: 



4358 ^ ' * 

4359 * DUMP NUMERICALLY (CARD) ^ 

4360 * ^ 

4361 ^ * 

4362 * THIS SEQUENCE COMPUTES THE MAXIMUM ADDRESS OF THE 20K MODULE, AND * 

4363 * COMPARES IT TO THE P ADDRESS TO OBTAIN THE BYTE COUNT TO BE WRIT- ^ 

4364 ^ TEN. * 

4365 * * 

4366 ^ THE CODE CONVERSION ADDRESSES ARE LOADED FOR USE BY THE 'MASK' * 

4367 * SUBROUTINE. THE FIELD COMPRESSION SWITCH IN THE 'VALOUT' SUBROU- ^ 
4363 * TINE IS SET OFF. WR3 IS LOADED WITH ZERO FOR NUMERIC MODE OPERA- ^ 

4369 ^ TION. * 

4370 * * 

4371 « THE DUMP CARD SWITCH IN THE 'WRITE NUMERICALLY' (CARD) SEQUEN- ^ 

4372 ^ CE IS SET ON IN ORDER TO SYSTEMATICALLY RETRY CARD PUNCHING UNTIL * 

4373 ^ THE DUMP OPERATION IS EXHAUSTED. THEN, CONTROL IS GIVEN TO THE * 

4374 * 'WRITE NUMERICALLY' (CARD) SEQUENCE. * 

4375 ^ * 

4376 ^ TO TERMINATE THE DUMP OPERATION, THE 80 COLUMNS OF THE LAST DUMP * 

4377 * CARD ARE COMPLETED BY ADDING THE BYTES FOLLOWING THE DUMP UPPER * 
4376 * BOUNDARY OR BY CORE STORAGE WRAP-AROUND. * 
4379 ^ ^ 



00209C 4iB0 058A 0056A 4382 DNCD LA WR2,TAeLEl LOAD ADDRESSES OF CODE CON- 

0020AO 41A0 40C8 020C6 4383 LA WR1,TBDNCD VERSION TABLE 



A2SB 



1620 SIMULATOR 



LOC 


OBJECT CODE 


ADDRi ADDR2 


STMT 


SOURCE 


STATEMENT 




92F0 ^mi 


02011 


4384 




HVI 


DUHCAR+1,X'F0* 


0020A5 


9294 0511 


OOSii 


4385 




MVI 


MASK+1,X'94* 


0020AC 


18D6 




4386 




LR 


i4R4,HAPOR8 


0020AE 


5AD0 3F50 


01F5G 


4387 


DNCDl 


A 


l«iR4,DEC20K 


002002 


1980 




4368 




GR 


RP,NR4 


oo2oeq 


47A0 ACAfe 


d20AE 


4389 




BC 


10,DHCD1 


0020E3 


18E8 




4390 




LR 


WR5,RP 


C0203A 


4iE£ 0050 


mm 


4391 


DNCD2 


LA 


NR5,80(NR5) 


0020BE 


19ED 




4392 




CR 


WR5,WR4 


0020C0 


4740 40BA 


020BA 


4393 




BL 


DNCD2 


0020C^ 


47F0 3FCA 


OlFCA 


4394 




B 


NHCDl-8 


0020C8 


OOOCAA 




4395 


TBDNCD 


DC 


X»0000AA» 


0020CB 


EF 




4396 




DC 


X'EF' 



4397 1443W PRINT 
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ASM H V 05 22-10 05/07/81 

SET DUMCAR SWITCH ON 

SET COMMAND MASK =94 

NR4=MAP0RG 

WR4=MAPORG+20K 

IS RP GREATER THAN WR4 

YES, LOOP 

NO, COMPARE P ADDRESS + 80 TO 
MAXIMUM ADDRESS OF 20K MODULE 
IS WR5 GREATER THAN WR4 
NO, LOOP 
YES, BRANCH 



A2SB 1620 SIHULATOR PAGE 118 
LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22-10 05/07/81 

PRINT NUMERICALLY * 

THIS SEQUENCE FIRST PREPARES THE ADDRESSES NECESSARY FOR CODE CON- * 

VERSION (SEE »MASK' SUBROUTINE). THE FIELD COMPRESSION SWITCH IN ^ 

THE 'VALOUT' SUBROUTINE IS SET OFF, WR3 IS GIVEN THE VALUE 0,COR~ * 

RESPONDING TO A STEP OF 1 FOR NUMERIC MODE OPERATION. THE DUMP ^ 

SNITCH IS SET OFF TO ALLOW GIVING CONTROL TO THE 'GETEOR' SUBROU- ^ 

TINE FOR DETECTION OF ANY RECORD MARK IN THE LINE TO BE PRINTED, ^ 

THEN, THE 1620 PRINT INSTRUCTION PROPER IS EXAMINED TO DEFINE THE * 

WRITE OPERATION (PRINT + SPACE AFTER PRINT, OR PRINT WITHOUT SPA- * 

CE -DIGIT Q11-). * 

IF NECESSARY, THE CODE CONVERSION TABLE IS PREPARED BY THE 'MASK' * 

SUBROUTINE. A SEARCH FOR RECORD MARK IS MADE BY THE 'GETEOR' SUB- * 

ROUTINE, AND THE OUTPUT DATA BYTES ARE CONVERTED, CHECKED, AND * 

MOVED TO 'I08UFF' BY THE 'VALOUT' SUBROUTINE. * 

A SUPERVISOR CALL SVC 1 IS ISSUED. AS SOON AS THE REQUEST IS AC- * 

CEPTED, 'PRLOCK' STOPS PROCESSING AND WAITS FOR CHANNEL END. * 

AT CHANNEL END, 'PRINTER BUSY' INDICATOR 35 IS SET ON AND CONTROL ^ 

IS RETURNED TO 'BIR' BY THE INDICATOR INTERROGATION SUBROUTINE * 

'ENTRY3'. 'PRINTER BUSY' INDICATOR 35 IS SET OFF AS SOON AS 'DE- ^ 

VICE END' OCCURS. ^ 

IN CASE OF AN ERROR CONDITION, CONTROL IS GIVEN TO THE 'EXCRET' * 

SUBROUTINE. THERE ARE 5 DIFFERENT EXITS = * 

- 'INTERVENTION REQUIRED' WILL CAUSE THE MESSAGE 'INTERVENTION RE- ^ 
QUIRED ON PRINTER' TO BE TYPED AND SIMULATION TO BE TEMPORARILY * 
STOPPED, SO AS TO ALLOW THE PRINT OPERATION TO RESTART AS SOON ^ 
AS THE PRINTER IS READY. * 

- 'UNIT EXCEPTION' WILL CAUSE CHANNEL 12 INDICATOR 3^ TO BE SET * 
ON. * 

- 'SENSE BIT 7' WILL CAUSE CHANNEL 9 INDICATOR 33 TO BE SET ON. * 

- SENSE BITS 2 AND 3 WILL CAUSE 'PRINTER CHECK' INDICATOR 25 TO ^ 
SET ON. * 

- ALL OTHER ERROR CONDITIONS WILL EXIT TO THE 1052 MESSAGE INDI- ^ 
GATING A CATASTROPHIC DAMAGE. ^ 



D m 1 




HO 7 7 








































(t£i{\Q 




44 J.U 




44x1. 




44X*. 




44i%) 




4414 




441'; 




441 A 




4417 




441 A 

44iQ 




441Q 

X 7 




469n 

44i.U 




44?1 

44c^X 




449? 




449'^ 




4494 




44£D( 




44^10 




4497 




449A 




449Q 








^431 




4419 




4433 




4434 




4435 




4436 




4437 




4436 




4439 




4440 




4441 




4442 





0020CC 


4iB0 


C58A 




0056A 


4444 


PRN 


LA 


WR2,TABLE1 


LOAD ADDRESSES OF CODE CON- 




C020D0 


41A0 


4210 




02210 


4445 




LA 


WR1,TBPRN 


VERSION TABLE 




0020D4 


41C0 


0000 




00000 


4446 




LA 


WR3,0 






0020D8 


9200 


4121 


02121 




4447 




MVI 


DUHPRI+1,X'00' 


SET DUMP SWITCH OFF 




0020DC 


9219 


0511 


00511 




4448 




MVI 


MASK4-1,X'19' 


SET COMMAND MASK = X'19' 




0020E0 


9200 


43A9 


023A9 




4449 


PRNA 


MVI 


FLCOSW+1,X'00' 


SET FIELD COMPRE SWITCH OFF V1L2 












4450 




MVI 


FLCOSWn,X'00' 


SET FIELD COMPRE S( DELETED) 


V1L2 


0G20E4 


9101 


5003 


OOOOB 




4451 


PRNB 


TM 


11(CNTR),X'01' 


PRINT SUPPRESS SPACE 


V1L2 


0020E8 


4710 


40F8 




020F8 


4452 




BC 


1,PRNDEL 


YES BRANCH 


V1L2 



A2S8 



1620 SIMULATOR 



LOC OBJECT CODE ADDRl ADDR2 





H/r U 


4iUU 




U<c.XUU 


uu*&ur u 










0020F4 


47F0 


4114 




02114 


0020F3 


9201 


4286 


02286 




UU^Uri* 


H/r U 


hllo 


uuuuq 














/V71 ft 






U^xiU 


fiftot fin. 










ftn71 fir 








rt9t 1 d 




7ZUX 


H£00 








y£r U 


HjJtU 


ft9ftrn 




ftft91 




y^xu 




uu^iu 


00211C 


4110 


0078 




00075 


002120 


^700 


41A0 




021A0 


00212^ 


^5F0 


43FG 




023F6 


002128 


12DD 








00212A 


4780 


41A6 




021A6 


00212E 


19D1 








002130 


4720 


41A0 




021A0 


002134 


42D0 


428F 




0228F 


002138 


45F0 


43A2 




023A2 



3 1:11 


<^nfiprr 

3UUr\L.C 


STATEMENT 






B 


PRNl 






MVI 


PR1CCN,X»00» 






B 


PRN2 




PPWDFI 
rrvnUCu 


MVI 


PR1CCM,K'01» 






B 


PRN3 






TM 


11(CNTR),X»01» 


7 




BO 


^+12 


HHdU 




MVI 


PR1CCW,K''09' 


4HoJL 




6 


PRN2 


440t 




HVI 


PR1CCW>X''01' 


4HbO 


PPM9 


MVI 


SPSKBT+1,X''F0» 






EAL 


15, MASK 


•t40J» 




BAL 


15, MASK 


446b 




LA 


Rl,120 


4467 


DUMPRI 


BC 


N0P,DUHP1R 


4468 




BAL 


15,GETE0R 


4469 




LTR 


NR4,WR4 


4470 




BC 


8,MVBLAN 


4471 




CR 


k'R4,Rl 


4472 




BC 


2,DUHP1R 


4473 DUMP2R 


STC 


WR4,PRlCCW+7 


4474 




BAL 


15,VAL0UT 



00213C 








4476 




CHOP 


4,8 


00213C 








4477 


PRNGO DS 


OH 


SVC 1 


00213C 


OOOE 






4473 




DC 


X'OOOE' 


00213E 


0000 














002140 


00002286 






4479 




DC 


A(PRICCW) 


002144 








4480 


PRNERR 


DS 


4C 


002146 


0000000006000000 




4481 


PRNCSW 


DC 


x"0000000006000000'' 


002150 








4452 


PRNPSW 


DS 


D 


002156 


0000217E 






4433 




DC 


A (NRMPRN) 


00215C 


C00021BC 






4484 




DC 


A(EXCPRN) 


002160 


92F0 4177 


02177 




4485 




MVI 


PRL0CK+1,X'F0' 


002164 


IBBB 






4486 




SR 


WR2,WR2 


002166 


43B0 4288 




02288 


4487 




IC 


WR2,PR1CCI4 


00216A 


41BB 0002 




00002 


4486 




LA 


WR2,2(14R2) 


00216E 


45F0 42F8 




022FB 


4489 




BAL 


15,SPSKIP 


002172 


9601 0007 


00007 




4490 




01 


TAPE43,X»0i* 


002176 


47F0 4176 




02176 


4491 


PRLOCK 


B 




00217A 


47F0 0262 




00262 


4492 




B 


TYPSWI+4 


00217E 


9104 414C 


0214C 




4494 NRMPRN 


TM 


PRNCSW+4,X'04' 


002182 


5010 420C 




0220C 


4495 




ST 


R1,PRNSAV 


002186 


4780 416E 




0218E 


4496 




BZ 


*+8 


00218A 


94FE 0007 


00007 




4497 NRMPR4 


NI 


TAPE43,X'FE' 


00213E 


9200 4177 


02177 




4498 




MVI 


PRLOCKn,X'00'' 


002192 


92FF 4150 


02150 




4499 NRHPRl 


MVI 


PRNPSW,X'FF» 


002196 


5610 420C 




0220C 


4500 




L 


R1,PRNSAV 


00219A 








4501 




CNOP 


2,4 










4502 




SVC 


3 


G0219A 


0000 














00219C 


00002150 






4503 




DC 


A(PRNPSW) 
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ASM H V 05 22^10 05/07/61 

SPACE SKIP SWITCH 

MOVE "KPRINT" COMMAND TO CCW 

SET WRITE WITHOUT SPACE V1L2 

V1L2 

IS Qll = 1 
YES, BRANCH 

NO, SET CCW = WRITE + SPACE 

SET CCW = WRITE WITHOUT SPACE 
SET SPACE SKIP SWITCH = OFF 
PREPARE CODE CONVER TABLE V1L2 
PREPARE CODE CONVE( DELETED) V1L2 
POSITIONS 

DUMP SWITCH 

SEARCH FOR RECORD MARK 

IS WR4=0 

YES, BRANCH 

NO, COMPARE WR4 AND Rl 
HIGHER BRANCH 
STORE COUNT IN CCW 



I/O REQUEST WAIT CHANNEL END 
CHANNEL END (FOR PRINTER) 

NORMAL RETURN (CE,THEN DE) 
EXCEPT. RETURN 
SET WAIT SWITCH ON 
WR2=0 

INSERT COMMAND BYTE 
INCREMENT WR2 BY 2 
BRANCH TO TEST SKIP 
SET PRINTER BUSY ON 
ACCEPTED WAIT SWITCH 
INTERROGATE I/O INDICATOR 



TEST DEVICE END 

SAVE Rl VlLl 
NOT YET, BRANCH 

YES, SET BUSY INDICATOR 35 OFF 

SET WAIT SWITCH OFF 

ENABLE INTERRUPTIONS 

RESTORE Rl VlLl 

RETURN TO POINT OF INTERRUPTION 



A2SB 



SIHULATOR 
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LOC OBJECT CODE ADDRi ADDR2 STMT SOURCE STATEHENT 



ASH H V 05 22.10 05/07/61 



nn9i AH 


XUL>i. 










U un r X r\ 


1 P 


nrvn > rsX 


UP6-P1 

r<r\'T-l\X 










rt91 ^6 






D 








6inn 

*f AUU 


UUUi 




uuuux 




NUPI AKJ 
nV pLHnl 


1 A 

L.H 


una pi 


[4R4=R1 


UU£.JLnn 






w b CJnO 








NUT 

nvx 


THPIIFP V6n* 
xuDur r > A HU 


DEI 1 DLnriixu Xrt xUDUrr 




n97<. 






UUonO 






nvu 


xUDur r tiv XX7 / > xuourr 








69AP 










c TP 
Oil* 


UP6 ppirry4-7 

WKH >rKXLl,W~/ 


cTfipF rniiMT 

DiUKL LUUni 1 


0021B8 


47F0 


413C 




0213C 


4510 




R 
D 




rXi TA UPTTF 


0021BC 


5010 


420C 




0220C 


4512 


EKCPRN 


3 i 


IsX > rfvilSnV 


CA\;c pi 1/1 1 1 
OnVC KX VXL.X 


0021CO 


47F0 


41F0 




021F0 


4513 




D 


PPNIIF 


II F.FVTT 

U u > C A X i 


0021C^ 


47F0 


4204 




02204 


4514 




R 

u 


rISIiXIS 


TNT PFO .nn TO «iFMn MF^«^AnF 












4515 






l^n^ PPTNTFP 


0021C6 


9131 


4145 


02145 




4516 




TM 
1 1 1 




TCTCT CCMtrC DTTC 94.1+7 
ludi oELPioC. DX 1 u c.^O~€ 


0C21CC 


0000 


0000 




coooo 


4517 




R7 




WnisJF fATA^TPHPHTf HAMAHF 


IEV0^}4 ERROR UNDEFINED SYHBOL 








UU£.JuUv/ 


4710 


41FC 




091 Fr 








P^A9PP 


A{ I RPANfH 




9130 


4145 






4519 




TM 
1 i 1 


PPMFPP4-1 y^n* 


TccT crycF RTT^ 9+1 


002109 


4750 


4 IPC 




021FC 


4520 




pr 


RHH pyA9PP 


t^flMF/AI 1 RPAUfH 
oUrisl/ HLL DKririun 


0021DC 


9101 


4145 


02145 




4521 


PXA4PR 


TM 


PRNERR+1,X'01* 


TEST SENSE BIT 7 


002iE0 


4780 


41E8 




021E8 


4522 




R7 






0021E4 


9604 


0007 


00007 




4523 




01 


TAPE43,X'04* 


SET INDICATOR 


0021E8 


9101 


414C 


0214C 




4524 


PXA5PR 


TM 

1 n 


rKriLDNTH , A Ux 




C021EC 


4760 


41F4 




021F4 


4525 




R7 




NO BRANCH 


0021FO 


9602 


0007 


00007 




4526 


PRHUE 


01 


TAPE43,X'02' 


SET INDICATOR UE IS PRESENT 


0021F4 


4510 


07B0 




007B0 


4527 


NRHPR5 


RAI 


PI FKITPY^ 


Tn TWTFPPOnATF TfsinTfATnP 


0021F8 


47F0 


4 ISA 




0218A 


4528 




B 


NRHPR4 


RETURN 


002iFC 


9603 


0002 


00002 




4529 


PXA2PR 


OT 


iiiunuf\>A UO 


'^FT PPTNTFP THFri^ ON 


002200 


47F0 


41DC 




C21DC 


4530 




R 


pyA6PP 

rAriTrr\ 


RPANfH 


00220q 


45F0 


OODC 




OOODC 


4532 


PRNIR 




\^ MF^TTP 

X^ } 1 IU.«J 1 Xi\ 


^FNH MF'^^AfiF « TNTFPVFWTTnN PF- 


00220S 


00000121 






4533 




nr 


rt V •till i fSuut / 


nilTPFH OfJ PPTWTFP ANH RTftP 
u{UXrvuu \)\\ ri\xriitf\ nriu jivr 


0022at 










4534 


PRNSAV 


DS 


F 


V XL.X 


002210 


BC0040 






4536 


T8PRN 


DC 


X'DC0040'' 


TABLE FOR PRINT NUMERICALLY 


002213 


FC0G40 






4537 




DC 


X'FC0040' 


* 


002216 


FAOOAA 






4538 




DC 


X'FAOOAA* 




002219 


FFOOAA 






4539 




DC 


X'FFdOAA* 




00221C 


DA 0 OA A 






4540 




DC 


X'DAOOAA' 




00221F 


DFOOAA 






4541 




DC 


X'DFCOAA' 




002222 


EF 








4542 




DC 


X'EF' 





4544 

4545 * 

4546 ^ 

4547 * 

4548 * 

4549 « 

4550 ^ 

4551 * 

4552 * 

4553 * 



PRINT ALPHAMERICALLY 

THIS SEQUENCE PREPARES THE ADDRESSES FOR CODE CONVERSION SO THAT 
THEY CAN BE USED BY THE »MASK» SUBROUTINE. IT SETS THE FIELD COM- 
PRESSION SNITCH IN THE 'VALOUT' SUBROUTINE ON. WR3 IS LOADED WITH 
1 WHICH CORRESPONDS TO A STEP OF TWO. THIS ALLOWS CONDENSING TWO 
ALPHAMERIC BYTES INTO ONE SINGLE OUTPUT CODE. THEN, CONTROL IS 
GIVEN TO THE *WRITE NUMERICALLY' (CARD) SEQUENCE. 



9e 



A2SB 



1G20 SIMULATOR 



LOC OBJECT CODE ABDRl ADDR2 STHT SOURCE STATEMENT 



002223 


00 












002224 


41BD Ob23 




00i23 


4557 PRA 


LA 


WR2, TABLES 


002223 


41A0 4240 




02240 


4558 


LA 


NR1,TBPRA 


00222C 


41C0 0001 




00001 


4559 


LA 


WR3,1 


002230 


9200 4121 


02121 




4560 


MVI 


DUMPRI+1,K^00' 


002234 


9259 0511 


00511 




4561 


MVI 


MA5K+1,X»59' 


002238 


92F0 4SA9 


023A9 




4562 


MVI 


FLCOS'r4+l,X'F0' 


00223C 


47F0 40E4 




020E4 


4563 


B 


PRNB 










4564 * 


B 


SPSKBT 



002240 OAOOAA 
002243 0F01AA4E 
002247 IFCOAA 
00224A 500060 

002249 33007E 

002250 24004D 
002253 04005!) 
002256 EF 



4566 TBPRA 

4567 

4568 

4569 

4570 

4571 

4572 

4573 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



OAOOAA' 
X'0F01AA4E« 
X'lFOOAA' 
X'500060' 
X'33007E' 
X«24004D' 
X'04G05D' 
X'EF' 
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ASM H V 05 22.10 05/07/81 



LOAD ADDRESSES OF CODE CON- 
VERSION TABLE 

SET DUMP SWITCH OFF 

SET COMMAND MASK = "59' 

SET COMPRESSION SWITCH ON 

^ V1L2 

» (DELETED) V1L2 



9€ 
96 



A2SB 



1620 SIHULATOR 
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LOC OBJECT CODE ADDRl A0DR2 STHT SOURCE STATEHEHT ASM H V 05 22.10 05/07/81 

4576 * * 

4577^ DUMP NUMERICALLY ON PRINTER * 

4576 ^ * 

4579 * * 

4580 * THE CODE CONVERSION ADDRESSES ARE LOADED FOR USE BY THE 'MASK' « 

4581 * SUBROUTINE* THE FIELD COMPRESSION SNITCH IN THE 'VALOUT' SUBROU- * 
4562 ^ TINE IS SET OFF. NR3 IS LOADED NITH ZERO FOR NUMERIC MODE OPERA- * 

4583 * TION. * 

4584 * * 

4585 ^ THE DUMP SNITCH IN THE 'PRINT NUMERICALLY' SEQUENCE IS SET ON TO * 

4566 * BY-PASS THE SEARCH FOR RECORD MARK CGETEOR' SUBROUTINE), * 

4567 * * 



002257 00 

002253 41B0 056A 

00225C 41A0 4270 

002260 41C0 DOOO 

002264 92F0 4121 

002266 9299 OSll 

00226C 47F0 40E0 



0056A 4590 PRD 

02270 4591 

00000 4592 

02121 4593 

00511 4594 

02CE0 4595 

4596 * 



LA WR2,TABLE1 

LA WR1>TBPRD 

LA WR3,0 

MVI DUMPRI+1,X'F0' 

MVI MASK+1,X»99' 

B PRNA 

B SPSKBT-4 



LOAD ADDRESSES OF CODE CON- 
VERSION TABLE 

SET DUMP SNITCH ON 
SET COMMAND MASK = 99 

* V1L2 

* (DELETED) V1L2 



002270 DA05E6AA5CAAAAE7 
002273 FA057BAA7CAAAAC7 
002260 £F 



4596 TBPRD DC 

4599 ^TBPRO DC 

4600 DC 

4601 * DC 

4602 DC 



X'DA05E6AA5CAAAAE7' 
K'DA05E6AA5CAAAAE6' 
XTA057BAA7CAAAAC7' 
X'FA057BAA7CAAAA7B' 
X'EF' 



V1L2 

(DELETED) V1L2 
V1L2 

(DELETED) V1L2 



002261 OOOOOOCDOOOOOO 
002283 00D003A620000000 



4604 PRICCW CCN 



X'00'>I08UFF,X'20',0 CCN FOR PRINTER 



A2Se 1620 SIHULATOR PAGE 123 

LOG OBJECT CODE ADDRi ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

4607 ^ * 

4608 * CONTROL OPERATIONS ON PRINTER * 

4609 * * 

4610 * THIS SEQUENCE PERFORMS TWO DIFFERENT TYPES OF PRINTER OPERATIONS: * 

4611 ^ IMMEDIATE COMMANDS AND DELAYED COMMANDS. * 

4612 ^ ^ 

4613 * DIGIT QIO IS FIRST TESTED TO DEFINE THE TYPE OF COMMAND = ^ 
4614* 1) IMMEDIATE COMMANDS * 

4615 * * 

4616 * DIGIT Qll IS USED TO GET A COMMAND BYTE DIRECTLY FROM A TABLE. THE * 

4617 * COMMAND BYTE IS PLACED INTO THE CCN OF THE OUTPUT OPERATION TO BE * 
4613 * PERFORMED ON THE PRINTER, THIS OPERATION IS REQUESTED BY AN SVC 2 * 

4619 « MHICH HAS TWO EXITS (ACCEPTED AND NORMAL). BOTH CAUSE SIMULATION ^ 

4620 * TO BE CONTINUED. * 

4621 ^ * 
4622* IN CASE OF AN EXCEPTIONAL RETURN, THE 'EXCRET* SUBROUTINE DISTIN- * 

4623 * GUISHES BETWEEN THE ERROR INDICATIONS 'UNIT EXCEPTION' AND 'INTER- * 

4624 * VENT ION REQUIRED' (SEE UNDER 'PRINT NUMERICALLY') ON THE ONE HAND * 

4625 * AND 'UNIT CHECK' ON THE OTHER HAND. THIS LATTER SENDS THE MESSAGE * 

4626 * 'UNIT CHECK' TO THE 1052 AND STOPS SIMULATION. * 

4627 * * 
4628* 2) DELAYED COMMANDS * 

4629 * A SPECIAL WRITE COMMAND IS COMPUTED FROM QIO AND Qll AND DIRECT- * 

4630 * LY STORED IN THE 'PRINT NUMERICALLY' SEQUENCE FOR FURTHER USE. IT * 

4631 * WILL BE PROCESSED AS A COMMAND MODIFIER DURING THE NEXT 'PRINT * 

4632 * NUMERICALLY/ALPHAHERICALLY' OPERATION. * 

4633 * * 

4634 ***************^*^************^***************************^ 



002290 


18A0 






4637 


KPRINT 


LR 


WR1,0 


CLEAR WRl 


C02292 


18B0 






4633 




LR 


WR2,0 


CLEAR WR2 


002294 


DlOl 4370 500A 


02370 


OOOOA 


4639 




MVN 


Q10(2),10(CNTR) 


MOVE QIO AND Qll NUMER. TO BUFF. 


0022'^A 


43A0 4370 




02370 


4640 




IC 


WR1,Q10 


INSERT QIO NUMERIC AND USE IT AS 


00229E 


4 BAA 4372 




02372 


4641 




IC 


WR1,TABQ10(WR1) 


INDEX FOR COMMAND ADDRESS 


0022A2 


41AA 437A 




0237A 


4642 




LA 


WR1,TABIHM(WR1) 




0022A6 


4380 4371 




02371 


4643 




IC 


WR2,Q11 


INSERT Qll NUMERIC 


0022AA 


43BA EOOO 




00000 


4644 




IC 


WR2,0(WR1,WR2) 


GET COMMAND BYTE 


0022AE 


9101 437Q 


02370 




4645 




TM 


Q10,X'01' 


TEST IF QIO IS ODD 


0022B2 


4710 42C6 




C22C6 


4646 




BO 


KPRl 


YES, BRANCH TO IMMEDIATE COMMAND 


0022B6 


06B0 






4647 




BCTR 


WR2,0 


NO, DELAYED COMMAND, DECREMEN BY 


002288 


C6B0 






4643 




BCTR 


WR2,0 


2 TO OBTAIN WRITE COMMAND 


0022BA 


42B0 4CF1 




020F1 


4649 




STC 


WR2,SPSKBT-^5 


AND STORE IT FOR FURTHER USE. 


0022BE 


9200 40ED 


020ED 




4650 




MVI 


SP5K8T'fl,X'00' 


SET SPACE SKIP SWITCH ON 


0022C2 


47F0 07F6 




007F6 


4651 




8 


ENTRYl 


RETURN TO INTERPRETIVE LOOP. 


0022C6 


42B0 4368 




02368 


4652 


KPRl 


STC 


WR2,KPRCCW 


STORE IMMEDIATE COMMAND IN CCW 


0022CA 


0700 






4653 




CNOP 


4,8 




0022CC 








4654 


KPR60 DS 


OH SVC 2 


I/O REQUEST AND CONTINUE 


0022CC 


OOCE 






4655 




DC 


X'OOOE* 


(FOR PRINTER) 


0022CE 


0000 
















0022D0 


00002368 






4656 




DC 


A(KPRCCW) 




0022D4 








4657 


KPRERR 


DS 


4C 





A2SB 



1620 SIHULATOR 



LOC OBJECT CODE 



ADDRi ADDR2 STHT SOURCE STATEHENT 



0022D8 OCOOOOOOG6000000 
0022E0 

0022E3 00002328 
0022EC 0000233^ 
0022F0 45F0 42F8 
0022F4 WO 07F6 



022F6 
007F6 



^656 KPRCSN DC K'0000000006000000' 

4659 KPRPSW DS D 

DC A(NRHKPR) 

4661 DC A(EXCKPR) 

4662 BAL 15,SPSKIP 

4663 B EHTRYl 



0022F6 


IBCC 








4665 


SPSKIP 


SR 


NR3,14R3 


0022FA 


43C0 


437F 




0237F 


4666 




IC 


WR3,SKIP1 


0022FE 


19CB 








4667 




CR 


NR3,MR2 


002300 


4770 


43QA 




0230A 


4666 




BC 


7,SKIP9A 


002304 


94F9 


0007 


00007 




4669 




NI 


TAPE43,X'F9* 


002308 


07FF 








4670 




BR 


15 


00230A 


43C0 


4387 




02387 


4671 


SKIP9A 


IC 


MR3,SKIP9 


00230E 


19CB 








4672 




CR 


WR3,WR2 


002310 


4770 


431A 


00007 


0231A 


4673 




BC 


7, SKIPIA 


002314 


9604 


0097 




4674 




01 


TAPE43,K'04' 


002318 


07FF 








4675 




BR 


15 


00231A 


43C0 


438C 




0238C 


4676 


SKIPIA 


IC 


I^R3,SKIP12 


002SiE 


19CB 








4677 




CR 


WR3,WR2 


002320 


077F 








4678 




BCR 


7,15 


002322 


9602 


0007 


00007 




4679 




01 


TAPE43,K*02* 


002326 


07FF 








4680 




BR 


15 



002328 92FF 42E0 
00232C 0700 

00232E 0000 
002330 000022EO 



022E0 



4683 NRHKPR 
4684 
4685 * 

4686 



HVI 

CHOP 

SVC 



KPRPSW, X'FF' 

2,4 

3 



DC A(KPRPSW) 



002334 5010 034C 0034C 

002338 47F0 4356 02358 

00233C 47F0 434C C234C 

002340 5610 034C a034C 

002344 45F0 00F4 000F4 
002346 0000016B 



4668 EXCKPR 


ST 


R1,RHCSAV 


4689 


B 


KPRUE 


4690 


B 


KPRIR 


4691 


L 


Rl.RHCSAV 
15 ,HESTOP 


4692 


BAL 


4693 


DC 


A(UNTCHK) 



00234C 5810 034C 
002350 45F0 OODC 

002354 00000121 
002358 5810 034C 
00235C 9602 0007 

002360 47F0 4326 



0034C 
OOODC 



G034C 



00007 



4695 KPRIR 
4696 

4697 *KPRIR 
4698 

4699 KPRUE 
4700 

4701 ^KPRUE 



02326 4702 



L 

BAL 
BAL 
DC 
L 

01 
01 
B 



R1,RNCSAV 
15,MESTIR 
15,HESTIR 
A(INTREQ) 
R1,RNCSAV 
TAPE43,X^02» 
TAPE43,X'02' 
NRHKPR 



002364 00000000 

002363 0000236800000001 



4704 KPRCCW 



CCW X'00',*,0,1 
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ASM H V 05 22-10 05/07/81 



9f 

GO TO TEST SKIP 

RETURN TO INTERPRETIVE LOOP 



i»IR3=0 

INSERT SKIP TO CHAN 1 
TEST IF CHAN 1 
NO, BRANCH 

RESET INDICATORS 33 AND 34 

RETURN TO CALLER 

INSERT CHAN 9 

TEST IF CHANH 9 

NO, BRANCH 

SET INDICATOR ON 

RETURN TO CALLER 

INSERT CHAN 12 

TEST IF CHAN 12 

NO, RETURN TO CALLER 

SET INDICATOR ON 

RETURN TO CALLER 



ENABLE INTERRUPTIONS 

RETURN TO POINT OF INTERRUPTION 



SAVE Rl V1L2 
U E, GO TO SET CHAN ,12 INDIC ON 
INT.REQ.,GO TO SEND MESSAGE 
RESTORE Rl V1L2 
SEND MESSAGE 'UNIT CHECK" 
AND STOP SIMULATION 



RESTORE Rl V1L2 
MESSAGE 'INTERV. REQUIRED' V1L2 
MESSAGE 'INTERV. R(DELETED) V1L2 
ON PRINTER AND STOP 

RESTORE Rl V1L2 
SET CHANNEL 12 INDICATOR ON V1L2 
SET CHANNEL 12 IND(DELETED) V1L2 
AND RETURN 



CONTROL CCW 



A2S8 1620 SIMULATOR 



PAGE 125 



LOC OBJECT CODE ADDRi ADDR2 


STHT 


SOURCE 


STATEMENT 


ASM H V 05 22,10 


002370 00 




H/ Uo 




DC 


X'OO' 




002371 00 






nil 


DC 


X'OO' 




002372 0E0000CE04000D04 






TARlH n 

i nuUf xU 


DC 


X'OEOOOOOE04000004' 




00237A 000B131BD36B939B 




4711 


TABIMH 
1 nSi./ xt K t 


DC 


X*000B131BD38B939BA3AB 




00238^ B3BBC3CB00000GD8 




4712 




DC 


X'B3BBC3CB000000DBE3' 






0237F 


4713 


^3V\ Xl X 


EQU 


TABIMHiS 






02387 


4714 


SKIP9 


EQU 


TA8IMH-M3 






0238C 


471"=^ 


*3i\ xr x£. 


EQU 


TABIMH+16 












AIF 


(NOT 1R1G21R).N0PT4 


PAPFR TAPF RFADFR 






4717 




AHOP 








OCAOO 


471 A 


RAPT 


EQU 


CODERR 


PAPFP TAPF RFAHFR NOT FyT^TTNR 




COAOO 


4719 


PNPT 


EQU 


CODERR 










• r i i\ A X 


AHOP 










4771 




AIF 


(NOT aR1621P).N0PT5 


PAPFP TAPF PIJNrH 

rrlr CIS Ifirt- i Umv^II 






4722 


.H0PT5 


AHOP 




COMMON PART OF SIM20 




OOAOO 


4723 


WNPT 


EQU 


CODERR 


PAPER TAPE DOES NOT EXIST 




OOAOO 


4724 


NAPT 


EQU 


CODERR 






OOAOO 


4725 


PTIOR 


EQU 


CODERR 






OOAOO 


472G 


DNPT 


EQU 


CODERR 






OOAOO 


4727 


PTIOl 


EQU 


CODERR 








4728 


.PTPXi 


AHOP 






002380 




4729 


PTSTAT 


DS 


20C 


ERROR STATUS 



A2SS 



1620 SIHULATOR 
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LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEHENT ASM H V 05 22.10 05/07/81 

4732 * * 

4733 * 'VALOUT' SUBROUTINE * 

4734 ^ * 

4735 * THIS SUBROUTINE IS ENTERED FROH ALL OUTPUT OPERATIONS AND PERFORMS * 

4736 * THE INVERSE FUNCTIONS OF THE WALIN' SUBROUTINE. * 

4737 * * 

4738 ^ OPERATION ^ 

4739 * 'VALOUT' CONVERTS SUCCESSIVELY ALL BYTES INTENDED FOR AN OUTPUT * 

4740 ^ OPERATION AND PLACES THEM INTO 'lOBUFF'. BYTE CONVERSION USES * 

4741 * CODE CONVERSION TABLE 'CNVTB' LOCATED AT ABSOLUTE ADDRESS 128. IT * 

4742 * INCLUDES A VALIDITY CHECK. * 

4743 ^ * 
4744^ 'VALOUT' MAY BE ENTERED FROM A "WRITE NUMERICALLY' OR 'DUMP' OP- * 

4745 ^ ERATION. IN THIS CASE, THE FIELD COMPRESSION SWITCH MUST BE OFF, * 

4746 ^ AND THE CONTENTS OF WR3 MUST BE ZERO TO INCREMENT THE P ADDRESS * 

4747 ^ BY A STEP OF 1. * 

4748 ^ * 

4749 ^ IT MAY ALSO BE ENTERED FROM A 'HRITE ALPHAMERICALLY' OPERATION. * 

4750 * IN THIS CASE, THE CONTENTS OF MR3 MUST BE 1 TO INCREMENT THE P ^ 

4751 ^ ADDRESS BY A STEP OF TWO. THE FIELD COMPRESSION SWITCH MUST BE ON ^ 

4752 * SO AS TO ALLOW PACKING OF TWO DATA BYTES INTO ONE SINGLE OUTPUT ^ 

4753 ^ CHARACTER. * 

4754 * * 

4755 ^ THE WRAP-AROUND FEATURE IS INCLUDED IN THIS SUBROUTINE. * 

4756 ^ * 

4757 * WHEN AN INVALID ERROR CODE IS DETECTED, ERROR EXIT IS AS IN THE ^ 
4758* 'VALIN' SUBROUTINE. * 
4759 ^ ^ 
4760 



0023A1 00 



0023A2 


41A0 03A8 




003A8 


4762 


VALOUT 


LA 


WR1,I0BUFF 


LOAD ADDRESS OF lOBUFF 


0023A6 


18B0 






4763 




LR 


WR2,d 




0023A3 


4700 43D4 




023D4 


4764 


FLCOSW 


BC 


NOP, PACKl 


FIELD COMPRESSION SWITCH 


0023AC 


43B8 0000 




00000 


4765 




IC 


WR2,0(RP) 


INSERT CURRENT CHARACTER 


C023B0 


43B8 0080 




00080 


4766 


PACK2 


IC 


WR2,C0NVTB(WR2) 


TRANSLATE CURRENT CODE 


0023E4 


42BA 0000 




00000 


4767 




STC 


WR2,0(WR1) 


STORE DATA 


0023B8 


95AA AOOO 


00000 




4768 




CLI 


0(WR1),K'AA' 
CODINA 


IS DATA INVALID 


0023BC 


4780 43EE 




023EE 


4769 




BE 


YES, BRANCH 


0023C0 


416C 8001 




00001 


4770 


PACKS 


LA 


RP,1(WR3,RP) 
RP,SI2E 


NO,RP = RP + 1 (OR + 2) 


0023C4 


1987 






4771 




CR 


IS RP GREATER THAN SIZE 


0023C6 


4720 43E8 




023E8 


4772 




BH 


VALOUl 


YES, BRANCH 


0023CA 


41AA 0001 




00001 


4773 


VAL0U2 


LA 


WR1,1(WR1) 


N0,WR1=WR1+1 


0023CE 


46D0 43A8 




D23A6 


4774 




BCT 


WR4, FLCOSW 


LOOP IF COUNT NOT EQUAL TO 0 


0023D2 


07FF 






4775 




BR 


15 


RETURN TO CALLER 


0023D4 


F211 04F0 6000 


004F0 


00000 


4776 


PACKl 


PACK 


BUFF2(2),0(2,RP) 


PACK 2 BYTES IN 1 BYTE 


0023DA 


Fill 04F0 04F0 


0O4F0 


004F0 


4777 




MVO 


BUFF2(2),BUFF2(2) 


% 


0023E0 


43B0 04F0 




004F0 


4778 




IC 


WR2,BUFF2 


INSERT RESULT IN WR2 


0023E4 


47F0 43B0 




023B0 


4779 




B 


PACK2 




0023E8 


1886 






4780 
4781 
4782 


VALOUl 
.N0PT6 


LR 

AIF 

ANOP 


RP,MAPORG 

(NOT &R1621P).N0PT6 


RP=MAPORG 
PAPER TAPE PUNCH 


0023EA 


47F0 43CA 




023CA 


4783 




B 


VAL0U2 


1 



A2SB 1620 SIMULATOR 

LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT 



PAGE 127 
ASM H V 05 22.10 05/07/61 



0023EE 9640 0002 
0023F2 47Fa ^3C0 



00002 4784 CODINA 01 

023G0 4785 B 



NYCHEK,X'40* 
PACKS 



SET HRITE CHECK INDICATOR ON 
RETURN 



A2SB 



1620 SIHULATOR 



PAGE 128 



LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT ASM H V 05 22.10 05/07/81 

^768 * * 

4789* »GETEOR' SUBROUTINE * 

4790 * « 

4791 * THIS SUBROUTINE IS CALLED BY OUTPUT OPERATIONS WHICH REQUIRE RE- * 

4792 * CORD MARK SEARCHING. STARTING AT THE P ADDRESS, CORE STORAGE IS * 

4793 * SCANNED FROM LEFT TO RIGHT. WHEN A RECORD MARK HAS BEEN FOUND, * 

4794 * THE DIFFERENCE OF ITS ADDRESS AND THE INITIAL P ADDRESS IS COM- * 

4795 * PUTED. ^ 

4796 * ^ 

4797 * OPERATION IN NUMERIC OR ALPHAMERIC MODE REQUIRES INCREMENTING. * 

4798 * THE STEP MAY BE 1 OR 2, DEPENDING ON THE VALUE GIVEN TO REGISTER * 

4799 * WR3 BY THE CALLING SEQUENCE (1 FOR 'WRITE' OR 'DUMP NUMERICALLY', * 

4800 * 2 FOR 'WRITE ALPHAMERICALLY' ) . THE RESULTING BYTE COUNT IS CON- * 
4601 * TAINED IN REGISTER WR4 FOR SUBSEQUENT USE BY THE OUTPUT OPERATION. * 
4802 * * 
4603 * THIS SUBROUTINE INCLUDES THE WRAP-AROUND FEATURE. * 
4804 * * 
4605 * SPECIAL CASE - WHEN A RECORD MARK IS FOUND AT THE P ADDRESS, THE * 

4806 ^ '6ETE0R' SUBROUTINE SENDS THE MESSAGE 'CHECK STOP' AND SIMULATION * 

4807 * STOPS. * 
4608> * 
4609 ********************^^*^^'^^*^*^^^********************* 



0023F6 


41DC 


6000 


00000 


4811 


GETEOR 


LA 


WR4,0(WR3,RP) 


INITIALIZE WR4 = P OR P+1 




0023FA 


16E1 






4812 




LR 


WR5,R1 


WR5 USED IF NO RM OR GM 


VlLl 


0023FC 


1820 






4613 




LR 


R2,0 














4614 




TM 


0(WR4),K'0A' 


TEST IF RECORD MA (DELETED) 


VlLl 


0023FE 


910A 


DOOO 


00000 


4815 


6ETE0H 


TM 


0(WR4),X'0A' 


TEST IF RM OR GM 


VlLl 


002402 


4710 


4426 


02426 


4816 




BO 


EORl 


YES, BRANCH 




002406 


41DC 


DOOl 


00001 


4817 




LA 


WR4a(WR3,WR4) 


NO,WR4=WR4+l+WR3 




00240A 


19D7 






4816 




CR 


WR4,SIZE 


IS WR4 GREATER THAN SIZE 




0024St 


4720 


4418 


02418 


4819 




BH 


E0R2 


YES, BRANCH 












4620 




B 


GETEOR+6 


(DELETED) 


VlLl 










4821 


* E0R2 


BCTR 


WR4,0 


N0,WR4=WR4-2 OR -KDELETED) 


VlLl 


002410 


46E0 


43FE 


023FE 


4622 




BCT 


WR5,GETE0M 




VlLl 


002414 


18D1 






4823 




LR 


WR4,R1 


MAX BUFF TO BE PRINTED 


VlLl 


002416 


07FF 






4824 




BR 


15 


RETURN TO CALLER 


VlLl 


002413 


IBDC 






4625 


E0R2 


SR 


WR4,WR3 




VlLl 


00241A 


182D 






4826 




LR 


R2,WR4 






0C2«C 


1B28 






4827 




SR 


R2 RP 


R2=WR4-RP 




00241E 


4 IDC 


6000 


00000 


4626 




LA 


WR4,0(WR3,MAPORG) 


WR4=A(MAP0RG+WR3) 












4629 




B 


GETE0R-f6 


BRANCH (DELETED) 


VlLl 


002422 


47F0 


43FE 


023FE 


4630 




B 


GETEOM 




VlLl 


002426 


1908 






4831 


EORl 


CR 


WR4,RP 


IS WR4 GREATER THAN RP 




002423 


4720 


444E 


0244E 


4632 




BH 


E0R3 


YES, BRANCH 




00242C 


4730 


443E 


0243E 


4833 




BE 


E0R5 


NO, EQUAL (ERROR) 




002430 


18D6 






4834 




SR 


WR4>MAP0RG 


WR4=WR4-MAP0RG 




002432 


1AD2 






4635 




AR 


WR4,R2 


WR4=WR4+R2 




002434 


42C0 


443B 


0243B 


4636 


E0R4 


STC 


WR3,^+7 






002433 


8AD0 


0000 


fldooo 


4637 




SRA 


WR4,0 


COMPUTE WR4=L 




00243C 


0000 






4636 




BCR 


BP, 15 


IF POSITIVE, NORMAL EXIT 





IEV044 ERROR UNDEFINED SYMBOL 

IEV029 ERROR INCORRECT REGISTER OR MASK SPECIFICATION 



A2SB 



1620 SIMULATOR 



LOC OBJECT CODE AODRl ADDR2 STMT SOURCE STATEHENT 



00243E 9109 5009 
002^42 4710 444A 
00244b 47F0 09F0 
00244A IBDD 
00244C 07FF 
00244E 1BD3 
002450 47F0 4434 



00009 



0244A 
009F0 



02434 



4639 E0R5 

4840 

4641 

4842 E0R6A 
4843 

4844 E0R3 
4845 
484G 
4848 



TM 
BO 
B 

SR 
BR 
SR 
B 



9(CNTR),X*09* 

E0R6A 

ERRORP 
WR4,MR4 

15 
WR4,RP 

E0R4 



PRINT OFF 
PRINT ON 
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ASM H V 05 22.10 05/07/61 

IS 9(CNTR) = 09 
YES, BRANCH 

NO, SEND MESSAGE 'MAR CHK* 

SET HR4 = 0 

RETURN TO CALLER 

HR4='^R4-RP 

BRANCH 



A2SB 1620 SIMULATOR 



LOG OBJECT CODE 


ADDRl ADDR2 


STHT 


SOURCE 


STATEMENT 






4850 


DISKV 




06000 


4851 ADDFQ 


EQU X*6000' 






4852 




END 






4853 1620/0 




01E44 


4854 ADDFQ 


EQU RATY 


IEV043 ERROR PREVIOUSLY DEFINED SYMBOL 
















HO JO 








UirCo 




Wnn 










WnHX 


Fnil UAA-OATV 
Ll^U Wnn i\n i T 










pnn UAAi+AnnFO 

C.li!U WnHi'iiUUriii 


UU<L*tD>H UUUUblH^ 




*tooU 


HnLnr 








4ubi 


^ i<^9nr 

* ib^UL 










f.lMAA 
HnHn 










WNAAi 


EQU NNAA-f ADDFQ 






HobHr 


WCONS 


DC ACWNAAl) 






*iObJi 




AIF (NOT m621P).N0PT6A 






4obb 


.N0PT6A 


ANOP 






Hob/ 


* 1443W 








HOOO 


PBB 


EQU PRN60+2 






Hob7 


PBBl 


EQU P8B-RATY 




rt/ OCA 


Ho/U 


PBB2 


EQU PBB14ADDFQ 






HO/x 


PNAPi 


DC A(PB82) 






^A79 
HO/i 


PNBB 


EQU KPR60"f2 




UUHOn 


HO/ 5 


PNBBl 


EQU PNBB-RATY 




UO*lOH 


HO/ H 


PNBB2 


EQU PNBBl+ADDFQ 


m2%n 0000646A 




4675 


PNAP2 


DC A(PNBB2) 






4676 




AIF (NOT &R1621R),N0PT7 






4877 


,H0PT7 


ANOP 






4878 


DISKV 'DISK VERSION 






4879 




PRINT OFF 






4880 




PUNCH ' SLC 006E00» 






4881 




PRINT ON 




blE44 


4882 




ORG RATY 






4883 




END 






4864 


^•f* NISKV NO 'DISKV 


001E44 


03000 


4885 




ORG KEYBIT+12288 




03000 


4686 




USING ^,SIMB2 






4887 




END 






4888 




AIF (NOT &DISK),N0DSK8A 






4869 


•N0DSK8A ANOP 



PAGE 130 
ASH H V 05 22.10 05/07/81 

DISK VERSION 

COMMON PART OF SIM20 

1622 CARD PUNCH 

1052 TYPEWRITER 

PAPER TAPE PUNCH 
1443 PRINTER 

PAPER TAPE READER 



VERSION 



A25B 1620 SIMULATOR 



LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT 

003000 0700 ^891 CNOP 2, A 

003002 00 A892 CORES! DC X'OO' 

4893 AIF (NOT &DISK),N0DSK9 

4894 •N0DSK9 ANOP 



PAGE 131 
ASM H V 05 22.10 05/07/81 
BEGINNING OF 1620 CORE STORAGE 



A2SB 1620 SIHULATGR 



LOC 


08 iFCT rODF 




STMT 




STATEMENT 


003003 




04000 


4896 




ORG 


KEYBIT+16364 






04000 


4697 




USING *,8 






05000 


4898 




USING 


^+4096, 9 


00^000 


4160 03DD 


00800 


4899 


DSKINT 


LA 


6,2048 


00^00^1 


1A68 




4900 




AR 


8,6 




1858 




4901 




LR 


5,6 


004008 


1A38 




4902 




AR 


8,8 


0040GA 


1A8S 




4903 




AR 


8,8 


00400C 


4198 5000 


00000 


4904 




LA 


9,0(8,5) 


0C4010 


IBOQ 




4905 




SR 


0,0 



PAGE 132 



ASM H V 05 22.10 05/07/81 



LOAD BASE REGISTERS 



A2SB 1620 SIMULATOR 



PAGE 133 



LOG OBJECT CODE ADORl ADDR2 STHT SOURCE STATEHENT ASH H V 05 22.10 05/07/81 



A909 * « 

4910 * * 

4911* BEGINNING OF SIMULATION * 

4912 * * 

4913 * * 



4914 



004012 


4130 


0300 


00800 


4916 


BEGIN 


LA 


SIM31,2048 




004016 


1A33 






4917 




AR 


SIMB1,SIMB1 


CTUD1 DA PET /iftft/ 

Slnol BASE - 4096 


004018 4143 


3000 


00000 


4916 




LA 


SIMB2,0(SIMB1,SIMB1) 


SInBZ BASt - ol9Z 










4920 




ENABLE 


I/O INTERRUPTS 












4921 


















4923 




SET INPUT COMHAND RETURN 












4924 










00401C 41A0 


0008 


00008 


4925 




LA 


WR1,SATT 




004020 


0000 


0000 


00000 


4926 




ST 


NR1,REQUST 




IEV044 ERROR UHDEFIHED SYMBOL 
















4926 




SIH-20 


INITIALIZATION 












4929 










004024 


IBOO 






4930 




5R 


0,0 


ri TAD DFflTCTrD ft 


004026 


1810 






4931 




LR 


R1,0 




004028 


1820 






4932 




LR 


R2,0 




00402A 


4860 


0014 


00014 


4933 




LH 


MAPORCCOREST 


! n&n MAPHPfi PPRTQTPP 
LUHU riHrUrvU KCU J.3 1 uts 


00402E 


5870 


0Gi8 


00018 


4934 




L 


SI2E,GAPAGT 


LUnU * nnAi.nun XOiCU oX«.u 


004032 


1A76 






4935 




AR 


SIZE,MAPORG 




004034 


18 AO 






4936 




LR 


WR1,0 




004036 


1856 






4937 




LR 


CNTR,MAPORG 


COUNTER = ADDRESS 00000 


004038 


18F0 






4938 




LR 


WR6,0 




00403A 


9200 


0001 


00001 


4939 




MVI 


KEYBIT+1,X'00' 


RESET SWITCHES 


00403E 


9294 


0000 


00000 


4940 




HVI 


KEYBIT,K'94» 


SET RESET AND MODIFY BITS 


004042 


9204 


oeo6 


00006 


4941 




MVI 


IXBAND,K'04* 


RESET TO ^NOBAND* V1L2 


004046 


4700 


eioc 


ooooc 


4942 


BRGC2 


BC 


NOP,BRGC 


SNITCH FOR BEGINNING OF SIM20 










4943 


DISKV DI5KV VERSION 




00404A 


41A0 


3E44 


01E44 


4944 




LA 


WR1,RATY 




00404E 


48C0 


C014 


00014 


4945 




LH 


WR3,C0REST 




004052 


IBCA 






4946 




SR 


NR3,WR1 


SET DATA LENGTH 


004054 


0000 


0000 


00000 


4947 




STK 


WR3,CCWRD+6 


STORE COUNT FOR FURTHER USE 


IEV044 ERROR UNDEFINED SYMBOL 








004058 


41B0 


0100 


00100 


4948 




LA 


WR2,256 




00405C 


0000 


OCOO 


00000 


4949 




LH 


WR4,I0KPR 




IEV044 ERROR UNDEFINED SYHE 


^OL 








004060 


19CB 






4950 VW2 


CR 


NR3,MR2 


IS LENGTH BELOW THAN 256 


004062 


4740 


807A 


0407A 


4951 




BL 


VVVl 




004066 D2FF AOOO DOOO 


00000 00000 


4952 




MVC 


0(256,WR1),0(WR4) 


MOVE 


00406C 


41AA 


0100 


00100 


4953 




LA 


WR1,256(WR1) 





A2S8 



1620 SIHULATOR 



PAGE 134 



LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT ASM H V 05 22,10 05/07/61 



004070 41DD 0100 




00100 4954 


LA 






004074 18C3 




4955 


SR 






004076 47F0 8060 




04060 4956 


B 


vVV^ 




00407A 42C0 607F 




0407F 4957 VVVl 


STC 


hrvO >VV4t1 




00407E D200 AOOO DOOO 00000 00000 4958 VV4 


MVC 




Lfiol nuvc 






4959 


END 










4960 


AIF 










4961 .NODSKIO 


ANOP 










4962 DISKV 






004034 4110 0000 




00000 4963 


LA 


Pin 


PPTMPW 6, 


004088 0000 0000 0000 OODCO 00000 4964 


nVL 


uwni f7\ rrupn+^L 


nuvc Unln LLrillln 


IEV044 ERROR 




UNDEFINED SYMBOL 








IEV04^ ^r<« ERROR 




UNDEFINED SYMBOL 








0040eE 0000 0000 




00000 4965 


1 u 

LH 


110*^ rrupH-i'^ 


WK5-UL 


IEVC44 ERROR 


UNDEFINED SYMBOL 








004092 41CC 0003 




00008 4966 


1 A 

Lh 






004096 0000 GOOO 




00000 4967 


CTU 


up'^ rrfjPTT+£. 


QTHPF TT TK! mj PfiP UPTTP 
3lUKt. il iri LLW rUK NKXtil 


TEV044 ERROR 


UNDEFINED SYMBOL 








00409A 0000 0000 




00000 4963 0THE2 


CT 


D1 PPni 

Kl >Kc:bl 


CAUC prrTCTPP D1 


IEV044 ERROR 




UNDEFINED SYMBOL 








00409E 0000 0000 0000 00000 00000 4969 


MVC 




Di APP T/n npUTPP AnnDPQC ac 


ic:Vu44 tKKUK 




UNDEFINED SYMBOL 








ityU^HF tKKUK 




UNDEFINED SYMBOL 








UU4UnH UUuU UUUU 




00000 4970 


LH 


WKl>WnVUbislKl ; 


£.511 UNll IN WnULV 






UNDEFINED SYMBOL 








0040A8 0000 0000 




00000 4971 




HKijWnUtV 




IEV044 ERROR 




UNDEFINED SYMBOL 








0040AC 0000 0000 


00000 4972 


nvX 




UPAn UIIMRPD - n 
ncinU rtUrlDuK - U 


IEV044 ERROR 




UNDEFINED SYMBOL 








0040B0 0000 0000 


00000 4973 


kt\iT 

nVi 




rvi TKinPP MtiMRPP -"ni 

UYLlriULK riUriDilK -Ul 


IEV044 ERROR 




UNDEFIh^ED SYMBOL 








004084 0000 0000 


00000 4974 


nvi 




pprnpn n - rvi twhpp ni 

KCLUKU U - LYLlriULK Ul 


IEV044 ERROR 




UNDEFINED SYMBOL 








004088 0000 0000 


COCOO ^975 


MUT 

nvx 


WflKUT'tjA uu 


nELnU U 


IEV044 ERROR 




UNDEFINED SYMBOL 








0040BC 0000 0000 




00000 4976 A9CD 


Ln 




Di Arp unMP AnnppcQ Awn pprnpn n 

rLnLC. nUnu nUUKil33 nriU KCLUKU U 


IEV044 ERROR 




UNDEFINED SYMBOL ^ 








0040C0 0000 0000 




00000 4977 


ST 




TK! rru AhnppQQ 


IEy044 ERROR 




UNDEFINED SYMBOL 








0040C4 0000 0000 




00000 4978 


LA 




P! Arp pptJTHPP rnMMAwn tm 


IEV044 ERROR 




UNDEFINED SYMBOL 








0040C6 0000 0000 




00000 4979 


STH 




»lJHPt^Tr» RIIPPPP 

wniiuiu ourrut\ 


IEV044 ERROR 




UNDEFINED SYMBOL 








0040CC 0000 0000 




00000 4960 


BAL 




fin in »TUHL!» *;ilRPnfITTWP 

uu lU IHnW DUDinUU 1 liiC. 


IEV044 ERROR 




UNDEFINED SYMBOL 








0040D0 0000 0000 




00000 4981 


B 


WHSKFU 

rti 1 ui\u.ri 


GO TO DISK ERROR ANALYSIS ROUT 


IEV044 ^^^^ ERROR 




UNDEFINED SYMBOL 








0040D4 0000 0000 




00000 4982 


LA 


WR5,CCWLD 


STORE CCW ADDRESS IN lORW 


IEy044 ERROR 




UNDEFINED SYMBOL 








0040D8 0000 0000 




00000 4983 


ST 


l4R5,WHDEV+2 




IEV044 ERROR 




UNDEFINED SYMBOL 








0040DC 0000 0000 




00000 4984 


LA 


NR5,CCWLDR 


PLACE RESTORE COMMAND IN 


IEV044 ERROR 




UNDEFINED SYMBOL 








0040EO 0000 0000 




00000 4965 


STH 


WR5,WHESTC 


»WHESTC» BUFFER 


IEV044 ERROR 




UNDEFINED SYMBOL 









A2SB 1620 SIMULATOR 



LOC OBJECT CODE ADDRl ADDR2 STHT SOURCE STATEMENT 



0040E^ 0000 GOOD 


00000 4966 


t H 


L]P7 rruPTT+9 

ViX\C > LuWrvx 1 T £ 


lEMm ^^-^ ERROR 


UNDEFINED SYMBOL 






0040E8 AlAO 0003 


00008 4987 


! A 

LH 


LiPl R 
V\T\L >0 


OO^OEC iBBA 


4988 




UP? UPI 


OO^iOEE COCO 0000 


00000 4969 


o 1 i f 


uP7.rruPTT+? 


IEV0^4 ERROR 


UNDEFINED SYMBOL 






0040F2 0000 0000 0000 00000 00000 ^990 


HVC 

1 1 V V* 




Xl-VUtt -r^^T^ urvrvvR ^^^^ 












RAI 
DriL. 


1"^ .UHPU 










uu*ivr Lr uuuu uuuu 




P 
u 


rin«jr\L.ri 


IEV044 "5^^^ ERROR 


UNDEFINED SYMBOL 






00^100 ^1B3 0008 


00008 4993 




UP7 RfUP?'i 


00410^ 0000 0000 


00000 4994 


•3 i n 


lJR9.fryPTT+? 

ril\«. y ULriiNX i ■ c. 


IEV044 ERROR 


UNDEFINED SYMBOL 






004108 IBBB 


4995 




UP? UP? 


00410A 0000 0000 


00000 4996 


Tr 

XVr 


UP? UHKM+1 


IEV044 ^^-x^ ERROR 


UNDEFINED SYMBOL 






00410E 41A0 OODA 


OOOGA 4997 


uri 


UP1 1 n 

Hl\X > XU 


004112 41B3 0001 


00001 4998 


1 A 


UP? IfUP?^ 


004ilG 198A 


4999 


CR 


WR2,WR1 


004113 4780 8128 ' 


04128 5000 


Rr 




00411C 0000 CCOO 


00000 5001 


D i w 


UP? UHWI4+1 


IEV044 ERROR 


UNDEFINED SYMBOL 






004120 0000 0000 


00000 5002 




UP? UHPn+6 


IEV044 ERROR 


UNDEFINED SYMBOL 






004124 47F0 80BC 


0408C 5003 


D 
O 




004128 0000 0000 0000 OOCOO 00000 5004 OTHE 


n r 




IEV044 ERROR 


UNDEFINED SYMBOL 






IEV044 *^ ERROR 


UNDEFINED SYMBOL 
5005 * 






00412E 4730 8150 


04150 5006 


Rf 


U > 1 1 iUX 


004132 0000 0000 00000 5007 


MVI 


UHUU^.! VfQQI 
fTiniiii'XjA vw 


IEV044 ^-2* ERROR 


UNDEFINED SYMBOL 






00413S 0000 0000 00000 5008 


MVI 


UHrr+1 n?* 


IEy044 ERROR 


UNDEFINED SYMBOL 






00413A 0000 0000 00000 5009 


MVI 


UHRO+?*K'Q?» 


IEy044 ERROR 


UNDEFINED SYMBOL 






00413E 0000 0000 00000 5010 


MVI 

1 iV X 


rHifNV'TjA vV 


IEVG44 ERROR 


UNDEFINED SYMBOL 






004142 0000 0000 


00000 5011 


LH 


WR2*DSKPR 


IEV044 ERROR 


UNDEFINED SYMBOL 






00414^ 0000 0000 0000 00000 00000 5012 


HVC 


CC14RIT4'2(2) *n5KPP 


IEVC44 ERROR 


UNDEFINED SYMBOL 






IEV044 ERROR 


UNDEFINED SYMBOL 






00414C 47F0 SOBC 


040BC 5013 


B 


A9CD 


004150 0000 0000 


00000 5014 OTHEl 


L 


R2,RE62 


IEV044 ERROR 


UNDEFINED SYMBOL 






004154 0000 0000 


00000 5015 


L 


R1,RE61 


IEV044 ERROR 


UNDEFINED SYMBOL 






004158 1912 


5016 


CR 


R1,R2 


00415A 0000 0000 


00000 5017 


BE 


ENDl 


IEV044 ERROR 


UNDEFINED SYMBOL 






00415E 4111 0002 


00002 5016 


LA 


R1,2(R1) 


004162 47F0 809A 


0409A 5019 


B 


0THE2 
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WRl = 8 

WR2 = WR2 - WRl 
STORE yR2 IN CCW 

MOVE DATA ADDRESS TO CCW 

GO TO 'WHRW' SUBROUTINE 

GO TO DISK ERROR ANALYSIS ROUT. 

INCREMENT REGISTER WR2 BY 8 
STORE WR2 IN CCW 

CLEAR WR2 

INCREMENT HEAD NUMBER BY 1 

INCRMENT WRl BY 10 

IS HEAD NUMBER = 10 

YES, BRANCH TO OTHE 

NO, STORE HEAD NUMBER IN HA 

AND IN RECORD ZERO 

BRANCH TO A9CD 

COMPARE CCW ADDRESS WITH DISK 



PROGRAM ADDRESS 

IF EQUAL, BRANCH TO OTHEl 

OTHERWISE, SET HEAD NBR = 0 

SET CYLINDER = 02 

RECORD ZERO = CYLINDER 02 

HEAD 0 

LOAD DISK PROGRAM ADDRESS 
PLACE DISK PR. ADDRESS INTO CCW 



GO TO MESSAG SUBROUTINE 
RESTORE REGISTERS Rl AND R2 

IS REGISTER Rl EQUAL TO REG. R2 
YES, BRANCH TO END! 

NO, INCREMENT Rl BY 2 
BRANCH TO 0THE2 



A2SB 16.20 5IHULAT0R 



LOC OBJECT CODE ADDRl ADBR2 5THT SOURCE STATEHENT 



OO^ifei 47F0 OOOC 



5020 END 

5021 AIF 

5022 .NODSKll ANOP 
OOOOC 5023 B 
0^000 502^ BEGINA EQU 

5025 END 



(NOT &DISK). NODSKll 

BRCC 
DSKINT 
DSKINT 
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P05.ID 


REL.ID 


FLAGS 


ADDRESS 


0001 


OOOi 


ftr* 

OC 


ftftftft t ft 
000010 


ODOi 


DOOl 


oc 


ft ft A ft t /i 

000014 


OOCl 


OCGl 


ftf* 

oc 


00004E 


0001 


0001 


oc 


ft nrtoftf 

00020C 


0001 


ft ft ft "1 
Ouul 


ftf* 

oc 


ft ft ft ft ft 
000290 


fi ft fi t 

0001 


ft ft ft t 


ftf* 


ftft ftOAD 

OuOZAo 


ft ft fit 


UUul 




ftftft'JAf* 
UUU/nL 


UUUl 


UUUi 


UL 


ftftftOETf* 

UUU2tL 


Uuul 


UUUI 




ft ft ft ^ O A 

UUUooH 


UUUl 


ft ft ft 1 

00^1 


UL 


UUU34U 


UOOi 


0001 


ftJ3 


ftftft tjr t 
UUU Jbi 


0001 


ft ft f1 1 

OOul 


ftf* 
UL 


ft ft ft /« tr /« 
OOUSrH 


ft ft ft T 

0001 


ft ft 1 

UOul 


ftr* 

oc 


ftftft/iCf* 

OOOnrC 


ft ft ft i 

0001 


ft ft ft 1 

OUOl 


fit* 

OL 


ft ft ftC ftO 


0001 


0001 


ftf* 
Ot 


ft ft ft"? ftf 
00u70C 


0001 


0001 


ftr* 
OC 


ftftft"5t ft 

000710 


0901 


ft ftft i 

0001 


ftr* 

OC 


ft ft ft "7 1 /• 

000714 


0001 


ft ft ft 1 

0001 


OC 


ft ft ft"? t Q 

000716 


uoux 


ft ftft 1 

OOUi 


ftf* 
UL 


UUU/IL 


ftftftt 

0001 


ftftftt 

Uuui 


ftV* 

OL 


ft ftft"3"Jft 

UUU/idU 


ftftft"! 

UOul 


ftftftt 

UUUi 


ftf* 
OC 


ftft ft'JO/t 

000724 


ftftft 1 

uopi 


OUui 


OL 


f>ftft*7'j£l 

UUU720 


ftftft 1 

0001 


ft ft ft t 

OOOi 


ftf* 
OL 


ftftft'70f* 

UUu72L 


0001 


0001 


OC 


ft ft ftT fj ft 
000730 


ft ft ft i 

0001 


0001 


fti* 
OC 


ft ftftT *j/t 
000734 


0001 


0001 


OC 


ft f1 ftT 

000736 


0001 


OODl 


OC 


000/3C 


0001 


0001 


oc 


000740 


0001 


GOOl 


OC 


000744 


0001 


0001 


oc 


ft rt A "? /» O 

000746 


0001 


OOGl 


OC 


ft ft ft "5 /t f* 

00074L 


ftftft '9 

0001 


ft ftft 1 

OOOi 


ftf* 

OC 


ftft ft"?r ft 

000750 


ft ft ft 1 

0001 


ftftftt 

OuOl 


ftf* 

OL 


ft ft ft c /» 

000754 


uuul 


ft ft fit 

UUui 


ftf* 

UL 


ftftft'7C£l 

UUU75Q 


ftftft 4 

0001 


ftftftt 

UOOi 


ftf 

UL 


ftftft'^Cf* 

00075L 


UUUA 


ftftftt 

UUUI 


UL 


ftf) A-^/ ft 

UUU7bU 


ft ft ft 1 


ftftftt 

Ouui 


ftf* 
UL 


ftftft"7/^A 

UUU7b4 


UUUl 


UUUi 


Fit* 
UL 


ftftft7/ Q 

UUU/bO 


UUUi 


UUUI 


UL 


ftft ft7/ f 

UUU/oL 


ftftft 1 

Uuui 


ft ftf< 1 

Uyyl 


UL 


fiftft77A 

UUU7/U 


UUUx 


UUUi 


fit* 
UL 


ft nf^'776 

UUU//4 


UUili 


uuui 


UL 


ftftft77a 
UUU//0 


ft ft ft 1 
uuui 


ft ft ft 1 

uUUi 


UL 


A A A77P 

UUU//L 


ft ft ft 1 

uuui 


ftftftt 

UUUi 


UL 


ft fJftQCA 

UUUyr4 


ft ftft 1 
UUui 


ft f s ft t 
Uuui 


UL 


ftftfirscr 
UUUVrL 


ft ^ti f 

Ouui 


ftftftt 
0001 


ftf* 
OL 


ft ft ft A ft A 

000A04 


ft ft ft i 
0001 


ftftftt 

OUUI 


ftf* 
UL 


ftftftA ftfi 
UUUhUo 


duUi 


UUUi 


UL 


ftftftA ftf 

UUUnUL 


0001 


OOCl 


OC 


OOOAIO 


0001 


0001 


oc 


OOOAl^ 


0001 


0001 


OC 


000A18 


0001 


0001 


oc 


OOOAIC 


OOCl 


0001 


oc 


O00A20 


0001 


0001 


oc 


000A24 


0001 


0001 


oc 


000A28 
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rUS • JLU 


KCL • xu 






uUUl 


nnni 
uuux 


nr 

UU 


nnnA!?r 

UUUn^cL 


nrifii 


nnni 

UuUX 


nr 

Uv» 


nnn&m 

UUUn*>U 


uuux 


nnni 
uuux 


nr 
ut. 


nnn/^^d 


UUUi. 


nnni 
uuux 


nr 

UL 


nnnA hIA 

UUUH50 


uuux 


nnni 
uuux 


nr 
uu 


nnnA'^r 

UUUii^L 


uuyx 


nnni 
uuux 


nr 

Uu 


nnnAdn 

UUUhtU 


UUui 


nnni 
uuux 


nr 

UL 


nnnA<!i/i 

UUUrtHTf 


UU Jl 


nnni 
uuux 


nr 

UL 


nnnA^A 

UUUrtHO 


UUUl 


nnni 
uuux 


nr 
UL 


nnnA6r 

UUUnHL 


uuux 


nnni 
uuux 


nr 

UL 


nnnAc:n 

UUUnDU 


UUUi 


uuux 


nr 

UL 


Uu JniDS 


uuux 


nnni 
uuux 


nr 

UL 


nnnA^^A 

uUUnjiO 


vus/i 


UwUi 


nr 

UL 


nnnA«;r 

UUUri3L 


UUaX 


uuux 


nr 

UL 


nnnA^n 




UUbX 


nr 

UL 


nnn6A6 

UUUnOnr 




UUy X 


nr 

UL 


nnnA^wA 

UUUrioO 


uuux 


nnni 


nr 

UL. 


nnnA^^r 

UUUrioLp 


uuux 


nnnt 

UUux 


nr 

UL. 


nnnA7n 

UUUfif u 


uuux 


uuux 


nr 

UL 


nnnA76 

UUUH/ H 


uuux 


uuux 


nr 

UL, 


nnnA7A 


uuux 


nnni 
uuux 


nr 

UL 


nnnA^r 


UuUX 


nnni 
uuux 


nr 

UL 


UUUnOU 


uuux 


u u U X 


nr 

UL 


nnnAAA 

UUUnOH 


UuUi 


uuux 


UL 


UUUnao 


uuux 


uuux 


UL 


UUUriOL 


uuux 


uuux 


nr 

UL 


nnnAon 
UUUhVU 


uuux 


uuux 


UL 


UUUnVH 


UUUX 


uuux 


nr 

UL 


nnnAQfl 

UUUnzO 


UUUX 


nnni 
u u u X 


nr 

UL 


nnnAQr 

UUUn/L 


uuux 


nnni 
uuux 


nr 

UL 


nnnAAn 

UUUnnU 


nnni 
uuux 


nnni 
uuux 


nr 

ULr 


nnnAA4 


nnni 

UUUX 


nnni 

UuuX 


nr 

UL 


nnnAAA 

U U Un riO 


uuux 


U U U X 


nr 

UL 


nnnAAr 

UUUrinL* 


UUUX 


nn^i 


nr 

UL 


nnnARn 

UUUHDU 


uuux 


UUUX 


nr 

UL 


nnnARii 

UUUnu-i 


uuux 


nnni 

UUUX 


nr 

UL 


UUUnDO 


uuux 


nn^^ii 

UUUX 


nr 

UL 


nnnAnr 

UUUnuL 


uuux 


nnni 

UUUX 


nr 

UL 


nnnArn 

UUUnLU 


UUUX 


UUUX 


nr 

UL 


nnnArA 

UUunLH 


uuux 


nhni 

UUUX 


nr 

UL 


nnnArA 

UUUHLO 


uuux 


nnni 
uuux 


nr 

UL 


nnnArr 

UUUHLL 


uuux 


nnni 


nr 

UL 


nnnAnn 

UUUnUU 


uuux 


nnni 

UuUX 


nr 

UL 


nnnArt4 

UUUnUI 


nnni 
uuux 


nnni 

UUUi 


nr 

UL> 


UUUrtUu 


nnni 

uuux 


nnni 

uuux 


nr 


U U UtnlUV* 


nnni 

uuux 


nnni 


nr 

Uv« 


uuurii-u 


nnni 


nnni 


nr 

uw 


u u unuT 


0001 


0001 


OC 


000AE8 


0001 


0001 


OC 


OOOAEC 


0001 


0001 


oc 


OOOAFO 


0001 


0001 


oc 


000AF4 


0001 


0001 


oc 


000AF8 


0001 


0001 


oc 


OOOAFC 


0001 


0001 


oc 


OOOBOO 


0001 


0001 


oc 


OOOBO^ 
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rU3 • iU 








UUUX 


ft ft ft 1 
UyUX 


ftp 

UL- 


ftft ftp ftfli 

UUUdUo 


UUUX 


UUUX 




ftftftDftr 
uUUuUL 


UUUX 


UUUX 


uL 


ftftftp t ft 
UUUdXU 


A ft ft 1 

UUUX 


Uu JX 


UL 


ftftftDt 

UUUoX'f 


UUUX 


UUUX 


ftr 
UL 


ftftftPin 
UUUdXo 


UUUX 


bUUX 


ftp 
UL 


ftftftPi r 
UUUdXL 


UUUX 


UUUX 


nr 

UL 


UUUD^lU 


UUUX 


nnnt 

UUUX 


nr 

UL 


nnnR94 

UUUD£*T 


UUUX 


nnni 

UUUX 


nr 

UL 


nnnR9A 

UUUDcO 


UUUX 


nnni 

UUUX 


nr 
uu 


UUUDcL 


UUUX 


nnni 

UUUX 


nr 

UL 


nnnp^n 

UUUdoU 


UUuX 


UUUX 


fir 
UL 


UUUdJH 


UUUX 


UUUX 


ftr 
UL 


n ft ftp on 
UUUdJO 


UliUX 


UuUX 


UL 


HftftD'Sr 
UUUDC5L 


UUUX 


UuUX 


ftr 
UL 


AftrtD/f ft 

UUUdhU 


UuuX 


UUUX 


ftr 

UL 


nftftD/i/i 


ft A fil l 
UUUX 


ft f'i ft 1 
UUUX 


ftr 
UL 


ftftftPiifl 

UUUdHu 


uuyx 


ftftft 1 

U'jyx 


nr 
UL 


ftftftpiir 
UUUo4L 


UUUX 


ft ft i"? 1 

UuUX 


ftr 
UL 


ftftftPCft 

UUUddU 


UuuX 


UUUX 


UL 


ftftftPCA 
UUUo!3H 


r*rtftl 
UUUX 


UUUX 


nr 
UL 


ftftftPCA 
UUUDDa 


UUUX 


UuuX 


ftr 
UL 


ftftftprr 
UUUdsL 


t U u X 


ft ft ft 1 
UUUX 


nr 

UL 


ftftftPdft 
UUUdou 


UuUX 


ft ft ft 1 
UUUl 


UL 


ftftftpd A 
UUUddh 


ft ft fit 
UUUX 


UUUX 


ftr 
UL 


ftftftpdd 
UUUddo 


UUUX 


ftftft 1 
UUUX 


UL 


ftftftP^r 
UUUDoL 


UUUX 


nnnt 

UUUX 


nr 

UL 


UUUtS/U 


UUUX 


UUUX 


nr 
UL 


ftftftP7/k 
UUUd/4 


ft f\ ft 1 
UUUX 


ftft fti 

UUUX 


ftr 

UL 


ftftftP7a 

UUUu/O 


f» ft A 1 

UUuX 


ftft ft t 
UUUX 


ftr 

UL 


ftftftP7r 
UUUtS/L 


ft ft ft 1 
UUuX 


UUUX 


ftr 

UL 


ftftftPQft 
uuudou 


ft ft ft 1 
UUuX 


ftftftl 
UUUX 


ftr 

UL 


nftftPflA 
UUUdon 


ft ft ft 1 
UUUX 


ftftftl 
UUUX 


ftr 
UL 


ftftftPftA 
UUUdou 


UUuX 


ftftftl 
UUUX 


ftr 
uL 


ftftftPEir 
UUuboL 


UUuX 


ft f ii ft 1 
UUUX 


ftr 
UL 


ftftftPQft 


UuuX 


U u U J. 


ftr 
UL 


ftftftPQ/i 


ftftrti 
UUUX 


ft ftft t 
UUUX 


ftr 
UL 


ftftftpon 
UUUdVo 


UUUX 


U U U X 


nr 

UL 


ftftftpor 


UUUX 


ft ft iTf 1 
UUvX 


nr 

UL 


ftftftPAft 

UUUDnU 


UUUX 


nnr^i 

UUUX 


nr 
uu 


nnnRAd 

UUUurit 


UUUX 


U U U X 


nr 

UL 


nnnpAA 

UUUunO 


nnni 

UUUX 


nnni 


nr 
uu 


nnnR^r 

U U U Dn U 


nnni 

U U U X 


nnni 

Uuwjs, 


nr 
uu 


nnnRRn 

UUUDuU 


nnni 

UUUX 


nnni 

UUUX 


nr 
uu 


ftftftPDA 
UUUDDt 


nnni 

UUUX 


nnni 

UUUX 


nr 
uu 


nnnpRfl 

UUUQDO 


nnni 

UUUX 


nnnt 

UUUX 


nr 
uu 


nnnppr 

UUUDOU 


nnni 

UUUX 


nnni 


nr 
uu 


ftftftpfft 

UUUQLU 




nnm 

U U U A 


nr 




0001 


0001 


OC 


000BC8 


0001 


0001 


oc 


OOOBCC 


0001 


0001 


OC 


OOOBDO 


0001 


0001 


oc 


000BD4 


0001 


0001 


oc 


000BD8 


0001 


0001 


oc 


OOOBDC 


0001 


0001 


oc 


0008E0 
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rvUL. « xL* 




riuUiSUwO 




nnni 


uw 


U V UUL.~ 


0001 


0001 


oc 


Kf V y t^taUf 


V U U X 


U U V X 




OOQBFC 
y y y Lj u.v> 


0001 


0001 


oc 


OOOBFO 

u y y Ui y 


nnni 

U u y X 


nnni 

U w V X 


Of 

uw 


y y y Ml t 


U U V X 


^> u y X 


oc 


OOOBFfl 

y y y ui \j 


U V U X 


nnni 

w V y X 


or 

U\* 


y y y ur l« 


nnni 


nnni 

y oux 


nr 


nnnrnn 

uuuuuu 


UUUA 


U u 'J X 


nr 

uu 


nnnrnn 

UUUUUt 


nnni 


u y y A 


nr 

uu 


nnnrnA 

UUUUUw 


nnni 


nnni 

"UUU X 


nr 

uu 


nnnrnr 

uuuuuu 


nnni 

U V U JL 


nnni 

uu vx 


nr 

uu 


nnnrin 

uuuuxu 


nnni 


nnni 


nr 

uu 


nnnrin 

UUUUXt 


nnni 


nnni 


nr 

uu 


nnnriA 

U V uu Xw 


nnni 

uu vx 


nnni 

V U UX 


nr 

uu 


nnnrir 

u u uu xu 


nnni 

uu vx 


nnni 

U U V X 


nr 

uu 


nnnr7n 

u y u wc.y 


W wx 


0001 


QC 
uu 


Q00C24 

V y y vrfci~ 


U U U X 


nnni 

U U V X 


nr 

uu 


y y sHj>c\j 


nnni 

u u vx 


0001 


oc 


Q0OC2C 

y y y 


nnni 


CO 01 


oc 


y y yvrf«jy 


nnril 


nnni 

V V UX 


nr 

uu 


y y y u w " 


nnni 


nnni 


nr 

uu 


nnnr'^R 

UUUUt^w 


nnni 

V y vx 


uu wx 


nr 

uu 


nnnrir 

UUUU JiU 


nnni 


nnni 

u u u 1 


nr 

uu 


nnnrin 

UUUUtU 


nnni 


nnni 
uuux 


nr 
uu 


UwUUIt 


nnni 


nnni 
uuux 


nr 
uu 


yuUUlu 


Uuux 


nnni 

Uw ux 


nr 

Uu 


uu UUtU 


nnni 


nnni 

uuux 


nr 

uu 


nnnrin 

uu uu J u 


nnni 

uu Ux 


U J U X 


nr 

uu 


nnnr^4 

UUUUJIT 


nnni 


nnni 

U U V X 


nr 

uu 


nnnr'^^fl 


ODOl 


OODl 


oc 


ooor^r 


V V V X 


0001 


oc 


no or 60 

y y vv*'o V 


nnni 

U U V X 


nnni 

U vUx 


oc 

vU 


U VUv<vJ~ 


ftfif^l 

yyyx 


uy vx 


VU 


yy y Www 


nnni 

y Uvx 


U V U X 


nr 

uu 


UUUUQU 


nnni 

U V V X 


nnni 

uuux 


nr 

uu 


nnnF^^ 

uu ur 


nnni 

V V U X 


nnni 

uuux 


nr 

uu 


oni nn4 

y y X u u T 


nnni 

vu V X 


nnni 

uuux 


nr 

uu 


u y X V V vj 




0001 


oc 


y y X y y w 


nnni 


nnni 

V U U X 


nr 

uu 


001010 

y y xuxu 


U wUx 


nnni 

U U U X 


or 

uu 


nnini4 

V U XU XT 


nnni 


nnni 

uuux 


oc 

uu 


001 QIS 

y y X y xw 


0001 


0001 


oc 


GOIOIC 

V y X y X w 


0001 


0001 


oc 


001020 


0001 

U w U X 


0001 


oc 


001024 


0001 


0001 


oc 


001026 


0001 


0001 


oc 


00102C 


0001 


0001 


oc 


001030 


0001 


0001 


oc 


001034 


0001 


0001 


oc 


001038 


0001 


0001 


oc 


00103C 


0001 


0001 


oc 


001040 


0001 


0001 


oc 


001044 


0001 


0001 


oc 


001048 


0001 


0001 


oc 


00104C 
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DA'Q in 


DPI Tn 

KLL • iU 


PI tfl^ 
r LnoD 




UUUi 


nnnt 


nr 
uu 


nni nc:n 

UUiUDU 


ftfifi'i 
UUUX 


UUUi 


nr 

UL 


nni Cifz/i 

UUiUD** 


fifth 1 


UUUi 


nr 
UL 


nni ncn 

UUiUDO 


UUUI 


UuUi 


ftp 
Ut 


nni ncr 
UUiUDL 


UUUi 


nft At 
UUui 


Ut 


nni ndn 
UUiUoU 


UUUi 


n n n i 
UUUi 


nr 
UL 


nni fiL^ 
UUiUo'i 


UUUi 


nnni 

UUUi 


nr 

UL 


nni fiCPL 

UUiUou 


UUUi 


nnni 

UUUi 


nr 

UL 


nni OLC 


nnni 

UUUi 


nnni 

UUUi 


nr 

UL 
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50£^7 
0U3/ 


5041 
OUbX 




^n74 

OU/b 


^fiAc; 

OUOji 


^nAA 


^noi 

OUzX 


0U74 


5007 
OU7/ 


51 00 

oxuu 


5946 
04b4 


5944 
04bb 










^^90 




0033 


55^;4 
003b 


5544 
OObb 


5601 
047X 


%>D UO 




s'^9n 






nrog 
03^7 


03b0 


5£;4A 
03bO 


51^40 
03b7 


5^170 
03/U 




ObUU 


obui 


obUO 


obUo 


ObXX 


5416 
0bX4 


541 6 
ObX4 


571 C 
0/X3 


5751 
0/01 






0750 


07D4 


"50^^.. 
ozDb 


073/ 


50CCA 
0730 


5001 
O77X 


5009 
O774 


601 
4UX3 






6.6.6.6. 
4444 


66A^ 
44ob 


440b 


66A7 
440/ 


66AA 
4400 


66AA 
4400 


433/ 


6CQ0 
437U 


4 OHO 


4b47 


6£l«^9 
4bD£. 




6<i.79 
4b/ C 


6477 
4b/ / 


6745 
4/bO 


674E: 
4/b3 


6744 
4/bb 


6744 
4/bb 


470D 


4700 


6000 
4707 


6QQn 
477U 


6QQQ 
4770 


4770 


6006 
4774 


60QC 
4773 


600C 
4773 


60G4 
477b 


Dull 






















99^C 


99^7 


9961 


9;19A 


<Lb3U 


94C:9 
^b3A 


94CC6 
Zb34 


94C:4 
4b3b 


9441 
4bbi 


<d007 


£.0/ U 




9<v76 
cb/4 


97n7 


97nA 
Lf UO 


97nA 
L/ UO 


9700 
4/ U7 


971 0 
4/ XU 


971 5 
4/10 


9A9Q 


9A90 

£.01.7 


9A^n 






9A67 


5060 
0U47 


5076 
Ou/4 


507E; 
OU/3 


5074 
OU/b 




Olib 




^9^0 


'5971 
X 


■3971 
0^/ i 


5979 
6 c./ c 


5975 
04/0 


5571 
00/X 


557c; 
00/3 


047 7 


o!:?Ui 




03/b 


03/ 7 


0374 


O37/ 


03 7/ 


5d 1 5 
OblO 


54 1 5 
ObXO 


i1 97 


4Abb 


69A9 


6^c:n 

40I3U 


666<C. 
444b 


433 7 


6(^09 
43 7C 


6441; 
4bb3 


644c: 
4bb3 


6444 
4bbb 


/i77ft 


40iX 


6fl1 7 


6A9C 


40<C0 


6AQ4 
4o0b 


606C: 
4743 


6064 
474b 


6067 
474/ 


60c; A 
473 U 


ClQCJ7 
























HAI ^ 


HAI 6 
UO 14 


nQ9n 

U7£.U 


n09ft 

U7iU 


0091 


0091 
U74X 


0099 
U744 


0O59 
U7O4 




U744 


t\Q66 
U744 


U743 


U73b 


U73b 


0OC7 
U73/ 


ooc;7 
U73/ 


0Q49 
U7b4 


0079 


U77t 


noo9 


noo^ 


1 n60 


1 "5 A "5 


1 ^A4 
xoub 


1 500 
XO7U 


1 505 
XO7O 


1 600 
X4UU 


1 606 
14U4 




cb3-> 


<cbD-i 




^/ UO 


£./ U3 


9701^ 
^/U3 


9704 
4/ Ub 


9700 
(4/U7 


971 9 
4/14 




9A67 






^1 ni 
oxux 


5116 
01x4 


51m: 
01X3 


5114 
OXXb 


51 99 
0X44 


51 96 
0144 


3342 


3343 


3345 


3346 


3347 


3353 


3356 


3357 


3374 


3375 


3578 


3579 


3599 


3600 


3604 


3604 


3606 


3606 


3607 


3608 


*tUOO 


4iU± 


6100 

4X7 7 


69nn 


69Ac; 


40Ob 


65A7 
400/ 


65AA 
40OO 


6509 
4074 


6640 

44b7 


4509 


4774 


4811 


4815 


4817 


4817 


4818 


4823 


4825 


4826 


4842 


4842 


4344 


4949 


4952 


4954 


4954 


4958 






0801 


0803 


0810 


0811 


0819 


0918 


0930 


0941 


0954 


0970 


1330 


2503 


2628 


2651 


2663 


2663 


2710 


2711 


2715 


2840 


2984 


2987 


2991 


3054 


3065 


3073 


3073 


3075 


3092 


3092 


3876 


4079 


4083 


4065 


4101 


4157 


4156 


4159 


4161 


4197 


4390 


4391 


4391 


4392 


4812 


4822 


4976 


4977 


4978 


4979 


2650 


2851 


2851 


2852 


4938 













A2SB DIAGNOSTIC CROSS REFERENCE AND ASSEHBLER SUMHARY PAGE 155 



ASM H V 05 22.10 05/07/81 

THE FOLLONIHG STATEMENTS MERE FLAGGED 

00270 00271 00272 00276 00278 00281 00375 00513 0052^ 00623 01329 01902 0A08^ 04096 04315 04318 04517 04838 
04854 04926 04947 04949 04964 04965 04967 04968 04969 04970 04971 04972 04973 04974 04975 04976 04977 04978 
04979 04930 04981 04982 04983 04984 04985 04986 04989 04990 04991 04992 04994 04996 05001 05002 05004 05007 
05003 05009 05010 05011 05012 05014 05015 05017 
62 STATEMENTS FLAGGED IN THIS ASSEMBLY 8 NAS HIGHEST SEVERITY CODE 

OVERRIDING PARAMETERS- ALIGN, DECK, LIST,ESD, RLD,XREF(SHORT) ,FLA6(000) ,N0RENT,N00BJECT,N0TEST,LINEC0UNT(55) 
OPTIONS FOR THIS ASSEMBLY 

DECK, N003JECT, LIST, XREF(SHORT), NORENT, NOTEST, NOBATCH, ALIGN, ESD, RLD, LINEC0UNT(55) , FLAG(O), SYSPARMO 
STANDARD DD NAMES- 5YSLIN SYSLIB SYSIN SYSPRINT SYSPUNCH SYSUTl 
OVERRIDING DD NAMES- 00000000 CMSLIB ASSEMBLE LISTING TEXT SYSUTl 

8195 CARDS FROM SYSIN 132 CARDS FROM SYSLIB 
6112 LINES OUTPUT 208 CARDS OUTPUT 



